II uae BJ 



■x/ Ji«r ; J I . icAi 



PACE - 

Current •enory ova i table: 125436 

OOOOi • ABSOLUTE 

2 bloeks for proeedure eode 124262 words left 
PACE - 1 USA rXLE: 



j2on. 88 



w 



OOOOi 

Current •cmory available 

OOOOi 

OOOOi 

OOOOi 



.PROC LISA 
124909 
.LIST 

.TITLE "Sony DRIVER FOR LISA" 
.INCLUDE VAR 



PACE - 2 LISA 



OOOOI 

OOOOI 

OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOi 0000 

OOOOi 0010 

OOOOI 0020 

OOOOi 0030 

OOOOi 0040 



FILE: VAR. TEXT Sony DRIVER FOR LISA 



.PAGE 



ZERO PACE MAPINC 

The f el lowing equotcs ore for dividing the RAM into logieol oreos; 
homever, os the eode grew this convention wos not stricly odhered 
to ond therefore one will find both "LOCAL" ond "GLOBAL" voriables 
seottered throughout the RAH areo. 



r 



OOOOi 
OOOOi 
PACE - 



0068 



INPUT OUTPUT BLOCK 

REA0A4RITE SHARED RAH, INITIALIZED BY 6S04 ON BOOT 

READ ONLY STATUS FROH THE 6504 

INTERNAL XOB 

6504 INTERNAL GLOBALS 

LOCAL VARIABLES 



3 LISA 



OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOl 

OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOt 

OOOOl 

OOOOi 

OOOOl 

OOOOl 

OOOOi 

OOOOi 

OOOOl 0007 

OOOOi 0000 

OOOOi 

OOOOi 

OOOOl 

OOOOi 

OOOOt 

OOOOl 

OOOOi 

OOOOl 

OOOOl 

OOOOl 

OOOOi 

OOOOt 

OOOOl 

OOOOl 

OOOOl 

OOOOl 0001 

OOOOl 

OOOOl 

OOOOl 

OOOOt 

OOOOl 

OOOOi 

OOOOt 

OOOOi 

OOOOt 

OOOOl 

OOOOt 

OOOOl 

OOOOl 

OOOOt 0001 

OOOOl 

OOOOl 

OOOOt 

OOOOt 

OOOOt 

PACE 



OOOOl 
OOOOl 
COOOl 



lOB .EOU 00 

SHARERAH . EOU 10 

STATUS .EOU 20 

XI06 .EOU 30 

GLOBALS .EOU 40 

LOCALS .EOU 68 

FILE: VAR. TEXT Sony DRIVER FOR LISA 



. Poge 



106 

THE 106 IS ALMAYS COPIED INTO THE INTERNAL 106 (1106) AREA BEFORE USAGE 
SO THAT THE 68K CAN START TO BUILD A NEW COHHANO INTO THE 106 AS SOON AS 
POSSIBLE. ALL REFERENCES TO THE XOB OR HOB ARE DONE IN THE FOLLOMINC 
FORMAT: 

lOB XXOB 



; GOBYTE 
; DRIVE 



XOBSXZE 
GOBYTE 



lOB^GOBYTE 
IOB«DRIVE 



• EOU 
.EOU 

00 

80-89 

80 

81 

83 

84 

85 

86 

87 

88 

89 



07. 
00 



XXOB^GOBYTE 
XXOB^DRIVE 



SXZE OF XOB BLOCK USED FOR PARAMETER PASSING 
COMMAND BYTE FROM 68K 



FCC 00 



COMMAND ACCEPTED BY THE 6504. 68K MAY XSSUE A NEN COMMAND 

COMMAND FROM 68K TO 6504 

NULL. TESTS HANDSHAKE 

RHTS COMMAND, COMMAND CODE XN 'COMMAND' 

SEEK 

CALL ADDRESS XN 6S04 

CLEAR STATUS 

SET MASK 

CLEAR MASK 

MAIT XN ROM 

Go Jump to self forever 



COMMAND 



01-7F,82,90-FF 
.EOU 01 



00 


READ 


01 


MRITE 


02 


UNCLAMP 


03 


FORMAT 


04 


VERIFY 


05 


FORMAT TRACK 


06 


VERIFY TRACK 


07 


READ6F 


08 


WRITEBF 


09 


CLAMP 


OA-FF 





MASK 



.EOU COMMAND 



♦♦♦ RESERVED ♦♦♦ 

; RMTS COMMAND CODE 

Read the Data • Or ive/Sidc/Traek/Seetor 
Mrite the Doto B Or ive/Side/Troek/Sector 
Unelawp the disk in Drive 
Formot the disk in Drive 
Verify the disk in Drive 
Fomot single Traek en the disk in Drive 
Verify single Troek on the disk in Drive 
Read w/o eheeksum verifieotion 
Nr ite w/o eheeksum ereation 
Clamp the Disk in Drive 
•♦♦ RESERVED ♦♦♦ 

MASK FOR SETTING AND RESETTING XMSK & XST 



XC<^'^' 



08 SET OR CLEAR INTERRUPT MASK FOR UPPER DRIVE 

80 SET OR CLEAR INTERRUPT MASK FOR LONER DRIVE 

01 CLEAR DISK INSERTED INTERRUPT FOR URPZR DRIVE 

10 CLEAR DISK INSERTED INTERRUPT FOR LOMER DRIVE 



4 USA 
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02 CLEAR BUTTON PRESSED INTERRUPT FOR UPPER DRIVE 
20 CLEAR BUTTON PRESSED INTERRUPT FOR LOWER DRIVE 
04 CLEAR R/W COMMAND COMPLETED INTERRUPT FOR UPPER DRIVE 



OOOOi 
OOOOi 
OOOOl 
OOOOi 
OOOOl 
OOOOI 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
PACE 



OOOl 
0002 



0002 

0003 

0004 
0005 
0006 

0007 

0008 
0009 



OOOA 
OOOB 
OOOC 
OOOD 
- 5 LISA 



40 CLEAR RAI COMMAND COMPLCTCD INTERRUPT FOR tOHER DRIVE 

; LOW BYTE OT ADDRESS FOR 6504 CALL 
; MIGH BYTE OF ADDRESS FOR 6504 CALL 
; A call to "IFFB" Mill reset the 6504. 



ADRL 
ADRH 


.ECU 
.EOU 


COMMAND 
ADRL ♦I 


; 






DRIVE 


.ECU 


02 


5 

; 


00 
80 




SIDE 


.EOU 


03 


< 
S 


00 
01 




SECTOR 


.ECU 


04 


; 


00-15 




TRACK 


.EQU 


05 


t 


00-2D 




SPEED 


.EOU 


06 


; 
; 


00 
01 -FF 




FMTCNFM 


.EOU 


07 


S 


rr 




CRRSTAT 


.EOU 


08 


DISKID 


.EOU 


09 



; DRIVE NUMBER 

DRIVE UPPER DRIVE 
DRIVE 80 LOMER DRIVE 

i SIDE NUMBER * 

SIDE UPPER SIDE OF MEDIA 
SIDE 1 LOMER SIDE OF MEDIA 






\ r c CdC 



0-, 



: SECTOR NUMBER 

MAXIMUM NUMBER DEPENDS ON TME TRACK NUMBER 

; TRACK NUMBER T ^ ^ ^ 

46 TRACKS TOTAL 

; SPEED OVERRIDE f ^'^ ^ ^ 

NO OVERRIDE. SPEED IS DEPENDING ON TRACK NUMBER 
Medifier value added ta naminal speed ^ 

; Famiat canf imat ian byte V<^C<2^V^ 

S Used ta ensure farwat is nat eseeMted by vftstake 
FMTCNFM Must be « FF far faraiat/famat traek ta Mark 



^■b 



;p 



I ERROR STATUS. RETURNED AFTER RA4 COMMANDS 
; See eanstants far current errar cade values 



fCC<2^^^ 



; Current id af disk last accessed 



Fcc<^>{l> 



OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOt 

OOOOl 

OOOOl 

OOOOi 

OOOOl 

OOOOl 

OOOOt 

OOOOi 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOi 

OOOOl 0010 

OOOOt 0015 

OOOOt 0016 

OOOOl 0017 

OOOOt 0018 

OOOOl 0019 

OOOOt OOIA 

OOOOi 00 IB 

OOOOi OOIC 

OOOOl 

PAGE - 6 LISA 



OOOOt 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOt 



; 

NaSides 
DrvErrar 
NastSeek 
SeekErr 
FILE: VAR.TEXT 

.Page 



00 Un iFile/DuaFile disk 

01 Lisa disk 

02 Maeintash disk 



.ECU OA 
.ECU OB 
.EOU OC 
. cqu OD 
Sany DRIVER FOR LISA 



i NuMber af sides af disk drive f CC<?^1 ^ 

; Mard errars get returned thraugh this byte 

; When saving the head this laeation » *FF* 

; Mhen seek daes nat handshake then « 'OF* 



SHARED RAM 



SHARED RAM COMES IN TMO FLAVORS: •READ/WRITE* AND 'READ ONLY*. TME 68K CAN, 
OF COURSE, READ AND MRITE TO ANY BYTE IN THE RAM AT ANY TIME BUT THIS IS NOT 
VERY MISE. (ONE MIGHT SAY VERY FOOLISH... ). SO THAT BY 'READ ONLY' NE MEAN 
MEMORY THAT NEVER SHOULD BE MRITTEN TO BY THE 68K BUT IS VALID TO READ AT 
ANY TINE. TYPICAL 'READ ONLY* VARIABLES ARE TME STATUS FLAGS CLMPEOO AND 
CLMPED80 THAT TELLS THE 68K THAT A DISK IS CLAMPED IN DRIVE OR 80. 

•READA«ITE* SHARED MEMORY IS. FOR EXAMPLE, THE 106 BUT IN THIS CASE IT IS 
A FAMILY OF •CONSTANTS* SET UP ON COLD START BY THE 6504 TO THEIR DEFAULT 
VALUES, BUT THEY CAN BE CHANCED AT ANY TIHE BY THE 68K TO ANY VALUE. THERE 
IS NO CHECKING OF THE RANGE OF THESE VALUES SO THE NEW ONE BETTER MAKE SENSE 
OR THE 6504 MIGHT CO TO NEVER, NEVER LAND. . . 

SHARED: READAIRITE 



MSpdTb 1 

SCDLY 

HCADCLAY 

MAXDOLY 

ROMIONUM 

MAXRETRY 

MAXRECAL 

StpDly 

MONDLY 



.equ 
.EOU 
.EOU 
.EOU 
.EOU 
.EOU 
.EOU 
.EOU 
.EOU 



ShareRam 

SHARERAM«5. 

SHARERAM«6. 

SHARERAH«7. 

SHARERAM^S 

SHARERAM^S 

SHARERAH^IO. 

SHARERAH^ll. 

SHARERAM<'12. 



Speed change delay in 5 ms intervals 
Head settling t iMe in S mz intervals 
Timer value in 2/3 seeand bef are aatar aff 
ROM identif ieatian nuaber ( 0018/FCC031 ) 
Maximum number af retries during a read/write 
Maximum number af reeal ibratians during a r/m 
Step delay time in 100 usee intervals 
Matar an delay time in 5 ms intervals 



FILE: VAR.TEXT Sany DRIVER FOR LISA 
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SHARED: READ ONLY 



OOOOt 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOl 
OOOOi 
OOOOt 
OOOOi 
OOOOl 
OOOOi 
OOOOl 
OOOOi 
OOOOi 
OOOOi 
OOOOl 
OOOOi 
OOOOl 
PACE 



0020 
0021 

0022 
0023 

0024 
0025 

0026 
0027 

0028 

0029 
002A 
002B 

002C 
002D 
002E 
002F 



0038 
0039 
003A 
003B 
003C 



C loMped 
MtrOn 

CurTrock 
CurCloss 

DrvCenn 
FutType 

RetryCnt 
RecolCnt 



.COU 

.cou 

.COU 

• cqu 

• cqu 

• cqu 

.ECU 
.CQU 



StatMS 
Clonped^l 

Stotu8«2 
CurTrack«l 

Stetu3«4 
DrvConn^l 

Statuses 
RctryCnt^l 



ImAlive .ECU Statuses 



Caunter 
HaldInK 
FMtCap 

iMsk 
Diplntr 
OkTaGa 
XST 



1ST: 



AdrMkl 
AdrMk2 
AdrHk3 
AdrHk4 
AdrMkS 



• cqu 

• cqu 

• cqu 

• EOU 

• EOU 

• EOU 

• EOU 



Status«9. 
Cauntcr^l 
Caunter«2 

STATUS* 12. 

iMSk^l 

I«3k*2 
I«8k*3 



1 1 1 1 1 1 1 1 








♦ -. 


1 
1 
1 


1 
1 


1 ♦— 


































♦ •- 















• cqu 

• cqu 

• cqu 

• cqu 

• cqu 



lIob«8 
AdrHkl«l 
AdrHkl«2 
AdrHkl«3 
AdrMkl «4 



; Disk In Place («0 EMPTY, •TF CLAMPED) 
DRIVE MOTOR SELECT (0«OFF, FF«0N ) 

Value af current traek 
Current traek elass (0:4) 

Mill be 'FF* If a drive Is physically there 
*2* far single, *22* far deuble sided 

RETRY COUNT 
RECALLIBRATION COUNT 

TMIS VARIABLE SPINS AS LONG AS TME MAIN LOOP IS EXECUTING 

GENERAL COUNTER 

Maids cammand index tCMparar I ly 

Awt * 5 af 20 usee 'Ff*9 to write as self sync 

Bits 7 & 3 arc mask; If act then drive enabled 
Flag reflects DIP interrupt 
REFLECTS FDIR («0. FOIRL; <>0. FDIRM) 
; INTERUPT STATUS 



DRIVE DISK INSERTED 
DRIVE BUTTON PRESSED 
DRIVE R/H COMPLETED 
LOGICAL OR OF BITS 0. 1 & 2 
DRIVE 80 DISK INSERTED 
DRIVE 80 BUTTON PRESSED 
DRIVE 80 RAi COMPLETED 
LOGICAL OR OF BITS 4,5 & 6 



5 values that indicate start & end af Address field 
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OOOOl 
OOOOl 
OOOOt 
OOOOi 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOi 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOt 
OOOOl 
OOOOi 
OOOOi 
OOOOl 
OOOOi 
OOOOl 
OOOOi 
OOOOi 
OOOOi 
OOOOl 
OOOOl 
OOOOl 
OOOOi 
OOOOl 
OOOOi 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOt 
OOOOl 
OOOOl 
OOOOl 
OOOOt 
OOOOl 
OOOOl 
OOOOl 
OOOOi 
OOOOi 
OOOOt 
OOOOi 



.page 



0040 
0041 
0042 



0043 
0044 



0045 
0046 



0048 
0049 
004A 
004B 
004C 
004D 
004E 
004F 
0007 

0050 
0051 
0052 
0053 
0054 
0055 
0004 

0056 
0057 
0058 
0059 

005A 
0058 
005C 
0050 

005E 
005F 



NtLaM 
MtMid 
MtMih 


• EOU 

• EOU 

• EOU 


Glabals 

NtLav^l 
HtLaM«2 


XNXPTRL 
INXPTRH 


.EOU 
• ECU 


CL0BALS«3 
INXPTRL*1 


KOOO 
KOFF 


• EOU 

• EOU 


GLOBALS « 5 
KODO^l 



Fa Uqm I ng 3 byte caunter contra Is bath testing 
far DIP hrt6 shutting off the Matars. Mhcn 
the law 2 bytes » 0, then test far DIP. Mhcn 
the third byte becaiRes the heads arc parked 
nnd the satars are turned off. 
For tisiing and space purposes during writing 
of data, on indexed by **y'* through the sera 
page instruction is used. These tme bytes 
held the base oddress for the Indeic. 



; SoMc eonstents for tiwlng purposes. 
; A eonstent *00* 
; A constont *Ff* 



STSLP 


• EOU 


GL0BALS*8. 




BSCNT 


• EOU 


StSlp^l 




CSERROR 


• EOU 


StSlp*2 




RASTRT 


• EOU 


StSlp«3 




RAEND 


.EOU 


StSlp«4 




RASCTR 


• EOU 


StSlp^S 




RATRK 


• EOU 


StSlp«6 




RACSUM 


• EOU 


StSlp*7 




ERRLEN 


• EOU 


7 




CSMFND 


• EOU 


Glabals«16. 




VOLFND 


• EOU 


CsinFnd^l 




SOFNO 


.EOU 


CsinFnd*2 




SECFND 


.EOU 


CsnFnd<'3 




TRKFND 


• EOU 


CsiiiFnd*4 




CSUH 


• EOU 


CsmFnd^S 


• 


ADRSLEN 


• EOU 


4 


; 


TrkFlg 


• cqu 


Glabals*22. 




MtrFlg 


• cqu 


TrkFlg* 1 




StpAmt 


.cqu 


TrkFlg*2 




Direct 


.cqu 


TrkFlg*3 




XndexL 


.cqu 


Glabal8*26. 




IndexH 


• cqu 


IndcKL^l 




RangeL 


• cqu 


IndeKL«2 




RangcH 


• cqu 


IndcaiL*3 




CPBYOl 


• EOU 


Glab8ls*30. 


: 


CPBY02 


.EOU 


CPBYOl ♦I 


; 



Following 8 locatlans held errar caunters for 

vorious read errars. The first 3 are far 

errors w/ read ing data and the last f Ive are 

far errars associated w/ the header. 

Read Data Starting Bits lip 

Read Data Ending Bits lip 

Read Data Checksum error 

Read Address Starting Bits lip 

Read Address Ending Bits lip 

Read Address wrang scetar 

Read Address wrang traek 

Read Address ehecksuM error 

8 bytes, sera based 

CHECKSUM read frain disk 

» Unif llc/DueFile, 1 * Lisa. 2 « Mac 

SIDE FOUND 

SECTOR FOUND 

TRACK FOUND 

Checksum calculated en read of ADDRESS data 

LENGTH OF THE ADDRESS HEADER • X 



Composite byte farmed from BUFFER[2FF:301 1 
[3FE:3FF] 



OOOOl 


0060 


OOOOl 


0061 


OOOOi 


0062 


OOOOl 


0063 


OOOOi 




PAGE 


- e LISA 


OOOOl 


0064 


OOOOl 


006S 


OOOOl 


0066 


OOOOl 




OOOOl 


0067 


OOOOl 




PAGE 


- 9 USA 


OOOOl 




OOOOi 




OOOOl 




OOOOi 




OOOOi 




OOOOi 




OOOOl 


0066 


OOOOl 


0069 


OOOOl 




OOOOi 


006A 


OOOOi 


006B 


OOOOi 


006C 


OOOOi 


0060 


OOOOi 




OOOOi 


006E 


OOOOi 


006F 


OOOOi 




OOOOi 


0070 


OOOOl 


0071 


OOOOl 


0072 


OOOOl 


0073 


OOOOl 


0074 


OOOOi 




OOOOi 


0075 


OOOOl 


0076 


OOOOl 


0077 


OOOOl 


0078 


OOOOi 




OOOOi 


0079 


OOOOi 


007A 


OOOOi 




OOOOi 


007B 


OOOOi 


007C 


OOOOl 




OOOOi 


007D 


OOOOi 


007E 


OOOOl 


007F 


OOOOi 


003r 


OOOOi 


0080 


OOOOi 




OOOOi 




OOOOl 




OOOOi 


OOBF 


OOOOi 




PAGE 


- XO LISA 


OOOOi 




OOOOi 




OOOOl 




OOOOi 




OOOOi 




OOOOi 




OOOOi 




OOOOi 


OOOB 


OOOOi 


0020 


OOOOi 




OOOOl 


004F 


OOOOi 


0000 


OOOOi 


0004 


OOOOl 


0008 


OOOOl 


OOOC 


OOOOl 


0004 


OOOOi 


0038 


OOOOl 


OOIC 


OOOOi 




OOOOi 


OOFF 


OOOOi 


003F 


OOOOl 




OOOOi 


0009 


OOOOi 


0007 


OOOOi 


0080 


OOOOi 


0081 


OOOOi 


0083 


OOOOi 


0085 


OOOOi 


0001 


OOOOi 


0008 


OOOOi 


0003 


OOOOl 


0004 



CPCKSUM 
CKSUMl 
CKSUH2 
CKSUH3 



.EOU 
.EOU 
.EOU 
.EOU 



Glebe ls«32. 

CPCKSUM* 1 
CPCKSUM*2 
CPCKSUM*3 
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TCKSMl .EOU Glebe Is ♦36. 
TCKSM2 .EOU TCKSMl ^1 
TCKSM3 .EOU TCKSMl* 2 



; Ceaiposltc byte fermed fren 3 cKecksuM bytes 

; First cKecksum byte 

; Secend cheeksu* byte 

; Third checksu* byte 



; During a read ef dete, the eheeksum is read 
; inte *XKSUM1..3". A new eheeksum is created 
; and stared in these 3 bytes ta verify Matters. 



TEMPSEC .EOU GlabBl8«39. ; TEMPORARY SECTOR COUNTER USED BY FORMAT 
FILE: VAR.TEXT Sany DRIVER FOR LISA 



.Page 



RNCSMFLG 
DELAY 


.EOU 
.EOU 


LOCALS 
LOCALS ♦! 


Svl 
Sv2 
Sv3 
Sv4 


.EOU 
.EOU 
.EOU 
.EOU 


L0CALS*2. 
Svl*l 
Svl*2 
Svl*3 


TEMPI 
TEMP2 


.EOU 
.EOU 


Leeals^e. 
Tempi ♦! 


DatMkl 
DatMk2 
DatMk3 
DatMk4 
DatMkS 


.equ 

.equ 
.equ 
.equ 
.equ 


Laea]8«8 
DatMkl*! 
DatMk!*2 
DatMkl *3 
DatMkl*4 


LOMCNT 
MIMCNT 
CNTPTR 
TOTCNT 


.EQU 
.EQU 
.EOU 
.EOU 


L0CALS*!3. 
LOMCNT*!. 
L0MCNT*2. 
L0MCNT*3. 


TEMP3 
TEMP4 


.EQU 
.EQU 


Laeals*!7. 
Teiiip3«l 


RtyFlg 
Uu6 


.equ 
.equ 


Laeals*!9. 
Laeal8*20. 


Csidx 

SaveL 

SavcN 

CadLeng 

SavIndeK 


• equ 
.equ 
.equ 
.equ 
.equ 


Laeal8*21. 
Laeal8*22. 
Laeal8*23. 
3F 

80 



LOCAL VARIABLES USED IN ONE OR SEVERAL ROUTINES 



; Flag far usage af hast supplied eheeksum 
; COMPUTED DELAY FOR TOTAL SEEK 

; starage during Mritel6 



; ♦♦♦ NOTE — 
LSTUSED .EOU 
FILE: VAR.TEXT Sany 

.Page 



BUFR12S2 


.EOU 


OB 


NIBLRETR 


.EOU 


20 


MAXTRACK 


.EQU 


4F 


MINTRACK 


.EQU 





MAXCLASS 


.EOU 


04 


MINSECNT 


.EQU 


08 


MAXSECNT 


.EQU 


OC 


MINSPEEO 


.EOU 


004 


MAXSPEED 


.EQU 


038 


OkDly 


.equ 


28. 


CNFMVAL 


.EQU 


OFF 


L0N6 


.EQU 


3F 


MAXCMD 


.EQU 


09 


CMDNUMB 


.EQU 


07 


NULLCMD 


.EQU 


080 


RWTSCMD 


.EQU 


081 


LMCMDNO 


.EQU 


083 


CLSTSCMD 


.EQU 


085 


HRTCMD 


.EQU 


01 


MRTBFCMD 


.EOU 


08 


FRMTDSK 


.EOU 


03 


VRFYDSK 


.EQU 


04 



I 2 Leeat ions far tenparory usage by aany raut ines 
; 5 values that indieate start & end ef Data field 



; Ha Ids value far physieal interleave eaunt 

; Same but epposite/eamplementary value 

; Painter ta whieh ent ta use ( high ar lam ) 

; Total eaunt of seetars written 



; flag for use in BadAddr error handling 
; 2 unused loeotians 



; S4 byte ring buffer of 8 byte I0B*3 

Ram from 'CO' to *FF* is used by S8K os parameter memary •♦♦ 

OBF ; Last used loeatian in the ZERO PAGE RAM 

DRIVER FOR LISA 



CONSTANTS 



LENGTH OF 12 BYTE BLOCK HEADER -1 

THE NUMBER OF NIBBLES READ SEARCHING FOR THE 

FIRST ADDRESS MARK DURING A READ 
MAXIMUM TRACK NUMBER: 79 
MINIMUM TRACK NUMBER: 

Maximum traek elass value -- range fram 0. . 4 
Minimum seetar eaunt 
Maximum seetar eaunt 
Minimum speed value 
Maximum speed value — Low • « high speed 



Format eonf irmatian eheek byte 
MASK FOR LOH 6 BIT 

10 eammands return FOIRH ( - 1 ) 

Seven eommands net aeeessed thraugh 'BV 

NullAiand shake eammand 

ReadAlrite Traek/Seetar eammand value 

Lawest eammand number ( net including 'Bl' 

Command to elear interrupt status 

Value af eammand to write data to disk 

Mrite data ta disk, brute farce methad 

Value of command from host to farmat disk 

Value of command from host to verify disk 
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A2/SY$P:SY.TEXT 



^•9c 005 



OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOt 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
PACE 



OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
OOOOi 
PACE 



0005 
0006 

00D5 
OOAA 
0096 
OOAD 

OOOE 
OOAA 

0004 
00C8 
0064 
0008 

ooir 

0008 

0005 
0001 
0009 
0011 
- 11 LISA 



0000 
0014 



nWTTRK 
VRFYTRK 

AOMl 
ADH2 
A0M3 
D0M3 

BITSLPl 
BXTSLP2 

RclStep 

OneSee 

TmOutRc 1 

RdAdrTmt 

XNMHodc 

TurnRnd 

Lrgc 
SmoI 
Tb IJmp 
MHih 
FILE: VAR.TEXT 



MLow 
TLew 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 

DOOB 
OOOC 

OOOD 
OOOE 

ooor 

0010 

0014 
0015 
0016 
0017 
0018 
0019 
OOIA 
OOIB 
OOIC 

OOIE 

ooir 
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OOOOi 

OOOOt 

OOOOi 

OOOOi 

OOOOi 

OOOOi 

OOOOt 

OOOOi OOCF 

OOOOt OlDO 

OOOOI OlDl 

OOOOi 0102 

OOOOi 01D3 

OOOOi 

OOOOi 0100 

OOOOi 01F4 

OOOOt 0200 

OOOOi 0300 

OOOOi 

OOOOi OOFF 

OOOOt OOFE 

OOOOi 

PACE - 13 LISA 



OOOOi 
OOOOt 
OOOOi 
OOOOt 
OOOOt 
OOOOt 



.CQU 05 

. eou 06 

.COU ODS 

.EOU OAA 

. EOU 096 

.EOU OAD 

.EOU ODE 

. EOU OAA 

. equ 4. 

•equ 200. 

.EOU 100. 

. equ 08. 

. equ OIF 

.equ 08. 

. equ 05. 

.equ 01. 

.equ 09. 

. equ 17. 

Sony DRIVER FOR LISA 

. equ 00. 

. equ 20. 



; ERROR NUMBERS 



GERRCMO 

6ERRDRV 

CERRSID 

GERRSEC 

GERRTRK 

GERRMSK 

GERRCLM 

GERRENA 

GERRINTR 

CERRFHPR 

PERRRDM 
PERRINT 

DErrCol 
XNMError 
StepErr 
DErrTkO 

SERRPROT 

SERRFRMT 

SERRCLMP 

SERRRD 

SERRMR 

SERRUCLMP 

SERRN0A9 

SERRTMT 

SERRMITK 

ErrHdr 
ErrHpt 



.EQU 01 

.EQU 02 

.EOU 03 

.EQU 04 

.EOU 05 

.EOU 06 

.EQU 07 

.EQU 08 

. EQU 09 

.EOU 10. 

.EQU 11. 

.EQU 12. 

.EQU 13. 

.EQU 14. 

.EQU 15. 

.EQU 16. 

.EQU 20. 

.EQU 21. 

.EQU 22. 

.EQU 23. 

.EQU 24. 

.EQU 25. 

.EQU 26. 

.EQU 27. 

.EQU 28. 

.equ 30. 

.equ 31. 



FILE: VAR.TEXT Sony DRIVER FOR LISA 



.Pogc 



; Value of eownond from host to foraot o trock 
; Volue of cewRDnd from host to verify a trock 

; ADDRESS MARK 1 

; ADDRESS NARK 2 

; ADDRESS MARK 3 

; DATA MARK 3 

S BIT SLIP MARK 1 
; BIT SLIP MARK 2 

• of steps to tokc OMOy from TrkOO during rccal 

eonstont for o one second mo it 

Timeout for recol obort 
; Timeout for looking for Address header 
; eonstont to setup IHM modes 
; 5^s40 msec turn oround time for ehonging directions 



; *11* hex 



; C06YTE ERROR: INVALID COMMAND 

; C06YTE ERROR: INVALID DRIVE NUMBER 

; GOBYTE ERROR: INVALID SIDE NUMBER 

; G06YTE ERROR: INVALID SECTOR NUMBER 

GOBYTE ERROR: INVALID TRACK NUMBER 

GOBYTE ERROR: INVALID MASK 

GOBYTE ERROR: NO CLAMPED DISK IN DRIVE 

GOBYTE ERROR: DRIVE NOT ENABLED 

GOBYTE ERROR: Pending interrupts not cleared 

GOBYTE ERROR: Involid formot porameter 

PROGRAM ERROR: ROM TEST FAILED 

PROGRAM ERROR: RANDOM IRQ. NMI OR BREAK 

Drive error: time out while looking for trock 
fotol error •• IHM doesn't respond to commands 
Mandshake did not occur when stepping 
Drive error: unable to leove track locotion 

CRRSTAT ERROR: WRITE PROTECT ERROR 

ERRSTAT ERROR: CAN'T VERIFY DISK 

ERRSTAT ERROR: Unoble to clomp diskette 

ERRSTAT ERROR: READ ERROR 

ERRSTAT ERROR: WRITE ERROR 

ERRSTAT ERROR: Unoble to unelamp diskette 

ERRSTAT ERROR: Connot find A9*s during ehkspd 

ERRSTAT ERROR: Unable to adjust speed w/in timeout 

ERRSTAT ERROR: Cannet write speed track 



i UnderRun while writing header 

; UnderRun while writing data fields 



Data Buffer equates and Bad Black equates 



StackSt 


.equ 


OCF 


SCTRCNT 


.EOU 


OlDO 


TRKNUMB 


.EOU 


SCTRCNT ♦I 


SIDNUMB 


.EOU 


SCTRCNT ^2 


SCTRSAV 


.EQU 


SCTRCNT*3 


PACEOl 


.EOU 


100 


Bufrl2 


.EQU 


1F4 


PACE02 


.EQU 


200 


PAGE03 


.EQU 


300 


PC2LEN 


.EOU 


OFF 


PC3LEN 


.EQU 


OFE 



FILE: VAR.TEXT Sany DRIVER FOR LISA 



; in it stack to "OICF** -- push down stock 

; During VERIFY, will no. of bod sectors 

; Track number where bad sectors occurcd 

; Side where bed sectors occurcd 

; Stort of buffer Mhere sector numbers saved 

last 12 bytes of data are far read/write 
last 12 bytes of data far read/write 
256 bytes of data far read/write 



• of bytes to read during MRBF02 loop 

• of bytes to read during MRBF03 loop 



.Page 



I/O SPACE 
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42/SYSPiSY.TCXT 



FSgc 006 



OOOOt 
OOOOl 
OpOOi 
OOOOl 
OOOOi 
OOOOi 
OOOOt 
OOOOi 
OOOOi 
OOOOl 
OOOOi 
OOOOl 
OOOOl 
OOOOt 
OOOOi 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOt 
OOOOl 
OOOOl 
OOOOt 
OOOOt 
OOOOl 
OOOOl 
OOOOl 
OOOOt 
OOOOi 
OOOOl 
OOOOt 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOt 
OOOOi 
OOOOl 
OOOOi 
OOOOi 
OOOOi 
XOOOi 
PACE 



0800 
0000 
0001 
0000 
0001 
0000 
0001 
0000 
0001 

0800 
0802 
0804 
0806 

0808 

080A 

080C 
0800 
080E 
080F 

0810 

0816 

0818 
0819 

081 A 
081B 

081C 
081D 

081E 
08 IF 

0820 
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lOSPACE 

OFF 

ON 

Zero 

eighty 

Lpw 

High 

InWard 

OutHard 


.eou 
.eou 
.eou 

.cqu 
.equ 
.cqu 
.cqu 
.equ 
.cqu 


800 

00 

01 

00 

01 

00 

01 

00 

01 


CAO 
CAl 
CA2 
LStrb 


.EOU 

.eou 
.eou 
.eou 


lOSPACE 
I0SPACE*2 
lOSPACE* 4 
10SPACE*6 


HtEna 


.eou 


I0SPACE«8 


OrEna 


.eou 


X0SPACE*10 


06L 
06H 
07L 
07H 


.eou 
.eou 
.eou 
.eou 


I0SPACE*12 
06L«1 

X0SPACE*14 
07L*1 


CntEna 


.eou 


X0SPACE«16 


PMiCna 


.eou 


X0SPACE*22 


DISL 
DISH 


.eou 
.eou 


X0SPACE«24 
DXSfl 


SXDEOSEL 
SZOEISCL 


.eou 
.eou 


X0SPACE426 
SXDEOSEL^l 


BOOTL 
BOOTH 


.eou 
.eou 


X0SPACE*28 
BOOTL* 1 


FDIRL 
FDIRH 


.eou 
.eou 


X0SPACE*30 
FDIRL^l 



PMHRcg 



.eou X0$PACE*32. 



J NAME FOR BEGINNING OF X/D SPACE OFFSETS 

; OFFSET TO SNITCH A PHASE OFF 

; OFFSET TO SWITCH A PHASE ON 

S offset for drive xcro 

; drive eighty 

; PiMiEno ♦ Low enab Ics output of PHHReg 

; direction offsets 



; Control signal for MCI PAL on Sony drive 

; signal 1 

; signal 2 

; Lood Strobe --OtoltoOviU strobe PAL 

; enables output of DrvEna 

; m «■> drive 0, « 1 ««> drive 80 

; LoM « Rood or Mrite 

; High ■ Sense or Mrite Lood 

; Low disables writing to disk 

; Enables AlrRcq output of IMH 

; low enables PHH eounter/co«parater 

; High enables pulses te Sony, else olways low 

; MeMORY eNABLE FOR THE 68K 

i MEMORY DISABLE FOR THE 68K 

; SELeCTS SIDE 

; SXDE 1 

; Disk Diog line; Mhen HIGH then X*» listening. 

; DESELeCTS THE XNTERUPT TO THE 68K 

; SELeCTS THe XNTCRUPT TO THe 68K 



Selects PHH register for writing 



.ORG 1000 
.INCLUDE TABLES 
FXLe: TABLES. TEXT Sony DRIVER FOR 



LXSA 



lOOOt 
lOOOt 
lOOOt 
lOOOi 
lOOOt 
lOOOi 
lOOOi 
lOOOt 
lOOOi 
lOOOi 
lOOOt 
lOOOi 
lOOOi 
lOOOt 
10071 
lOOCl 
10131 
10181 
lOlFi 
102 4| 
102Bi 
10301 
10371 
103CI 
10401 
10471 
104CI 
10531 
10581 
lOSFi 
10641 
106Bi 
10701 
10771 
107CI 
10801 
10871 
108CI 
10931 
1098i 
109ri 
10A4| 
lOABi 
lOBOi 
10671 
lOBCt 
lOCOi 



.PAGE 



r 



1000 

96 97 9A 
A6/A7 AB 
AE AF B2 
B7 B9 BA 
BO BE BF 
03/06 07 
D6 DC DO 
€7 £S eA 

eo ee ef 

F6| F7 F9 
FC FD FE 
96 97 9A 
A6 A7 AB 
AE AF B2 
B7 B9 BA 
BO BE BF 
03 D6 D7 
06 DC DO 
E7 e9 eA 

eo ee EF 

F6 r? F9 
FC FO FE 
96 97 9A 
A6 A7 AB 
AE AF B2 
B7 B9 BA 
BO BE BF 
03 06 D7 
06 DC DO 

e7 e9 eA 

eo ee CF 

F6 F7 F9 
FC FD ft 
96 97 9A 



96 9D 

AC AO 
63/ 64 
66 6C 
C6 CO 
09 DA 
DE/DF 

ee ec/ 

F2 F3 
FA F6 
Ffl 
96 90 
AC AD 
63 64 
66 6C 
C6 CD 
09 DA 
DE OF 
e6 EC 
F2 F3 
FA F6 

rf 

96 90 
AC AO 
63 64 
66 6C 
C6 CD 
09 DA 
DE OF 

e6 ec 

F2 F3 
FA F6 

rr 

96 90 



NXe6Le TABLe 



6-eiT TO 7-eiT NI6L CONVeRSXON TABLe. CODES WITH MORE THAN ONE PAIR OF 
S ADJACENT ZEROES OR WITH NO ADJACENT ONES (eXCEPT 67 ) ARE EXCLUDED. 
; Toble Is now 2S6 bytes long for use w/ any byte. 



NXBL .eou ♦ 

«E «^ . Byte 096, 097, 09A, 096, 090, 09E, 09F, 0A6, 0A7. OAD, OAC, OAD 

B5 B6 .6yte 0AE,0AF,062,063,064,065,066,067,D69,06A,0B6,06C 

Ce CF .6yte 06D,06E.06F,0C6,0CD,0CE,OCF,0D3,OD6,0O7,0D9,0OA 

E5 e6 .6yte 0DB,0OC,0OD,0OE,ODF,0E5,0E6,0E7,OE9,0EA,0e6,0EC 

^< ^5 . 6y tc OED. OEE, OEF, 0F2, 0F3, 0F4, 0F5, 0F6, 0F7, 0F9, OFA, 0F6 

.6yte OFC,OFD,OFE,OFF 

SE 9f . 6y te 096, 097, 09A, 096, 090, 09E, 09F, 0A6, 0A7, 0A6, OAC, OAD 

B5 66 . 6y tc OAC, OAF, 062, 063, 064, 065, 066, 067, 069. 06A, 066, 06C 

CE CF ^ . 6y tc 06D. 06E. 06F, 0C6, OCD, OCE. OCF, 0D3, 006, 007, 009, ODA 

E5 E6 . 6ytc 006, OOC. ODD, ODE, OOF, 0E5, 0E6, 0E7, 0E9, OEA, OES, DEC 

^< »^5 . ey tc OED. OEE, OEF, 0F2, 0F3, 0F4, 0F5, 0F6, 0F7, 0F9, OFA, 0F6 

. 6y tc OFC, OFO, OFE, OFF 

9E^ 9f . Byte 096. 097, 09A, 096, 090, 09E. 09F, 0A6. 0A7, 0A6, OAC, OAD 

B5 66 . eyte OAE, OAF, 062, 063, 064, 065, 066, 067. 069, 08A, 066, 06C 

CE CF . 6y tc 080, 06E. OOF, 0C6, OCD, OCE, OCF, 003, 006, 007, 0D9, ODA 

eS e6 . 6y tc 0D6. OOC, ODD, ODE, OOF, 0E5, 0E6, 0E7, 0E9, OEA, 0E6. DEC 

^< f'S . 6ytc OED. OEE, OEF, 0F2, 0F3, 0F4, 0F5, 0F6, 0F7, 0F9, OFA, OFO 

.6ytc OFC, OFD. OFE, OFF 

S^ 9r . Byte 096. 097, 09A, 09B, 090, 09E. 09F. 0A6, 0A7, OAe, OAC, OAD 
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42/SYSP:SY.TCXT 



^•9c 007 



X0C7I AS A7 AB AC AD 

lOCCi AC AF B2 B3 B4 B5 B6 

10D3I B7 B9 BA BB BC 

10D8i BD BE BT CB CD CC Cr 

lOOTi 03 06 D7 D9 DA 

X0C4I 06 DC DO DC OF es £6 

lOCBi £7 C9 CA £B EC 

PACE " 15 LISA FILE: TABLES. TEXT Sony DRIVER FOR LISA 



. Byte OAE. OAF, 0B2, 0B3, 0B4, 0B5, OBS, 0B7, 0B9. DBA. DBS. 06C 
. Byte OBD, OBE, OBF, OCB, OCD. OCE, OCF, 003. 006, 007, 009, ODA 
. Byte ODB, OOC, ODD, ODE, OOF, 0E5. 0E6, 0E7, 0E9, OEA, OEB. DEC 



lOFOi 
10F7I 
lOFCl 
llOOl 
llOOl 
llOOl 
11021 
11041 
11061 
11081 
llOAi 
llOAi 
HOC 
llOEi 
lllOl 
1112] 
11141 
11141 
11161 
11181 
lllAi 
lllCl 
lllEl 

iiiq 

11201 
11221 
11241 
11261 
11281 
PAGE 



1128 
11281 
1128 
1128 
11281 
11281 
11281 
11281 
1128 
11281 
11281 
11281 
11281 
1128 
11281 
11281 
11281 
11281 
11281 
11281 
11281 
11281 
11281 
11281 
11281 
11281 
11281 
1128] 
11281 
11281 
11281 
11281 
11281 
11281 
1128 
11291 
112AI 
112BI 
112CI 
11201 
112EI 
112F! 
11301 
11311 
11321 
11321 
11331 
11341 
11351 
11361 
11371 
11381 
11391 
PACE 



ED EE EF F2 F3 F4 F5 

F6 F7 F9 FA FB 
FC FD FE rf 

1100 
03 23 
02 E2 
02 9C 
02 57 

02 15 
llOA 

03 43 
02 FE 
02 B7 
02 70 

02 2B 
1114 

03 30 
02 ED 
02 A7 
02 62 

02 IE 
HIE 

03 36 
02 F3 
02 AO 
02 66 
02 22 



. Byte OED. OEE, OEF, 0F2, 0F3, 0F4, 0F5, 0F6, 0F7, 0F9, OFA, OFB 
. Byte OFC, OFD, OFE, OFF 



HideLe 



.equ 
.Byte 

• Byte 

• Byte 

• Byte 
.Byte 

MideHlh .equ 
.Byte 

• Byte 
.Byte 
.Byte 
.Byte 

Th inLow . equ 

• Byte 
.Byte 
.Byte 

• Byte 

• Byte 
ThlnHih .equ 

.Byte 
.Byte 
.Byte 
.Byte 
.Byte 



003, 023 

002, 0E2 

002, 09C 

002, 057 

002, 015 

003, 043 
002, OFE 
002, 067 
002, 070 

002, 02B 

003, 030 
002, OED 
002, 0A7 
002. 062 

002. OlE 

003. 036 
002, 0F3 
002. OAD 
002. 066 
002, 022 



; empiricoUy deterwined speed tables 
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FILE: TABLES. TEXT Sony DRIVER FOR LISA 



.Page 



COHHAND PARSING AND TESTING TABLES 

COMHANO PROPERTIES AND PARAMETERS USED, ONE BYTE PER COMMAND: 
76S43210 
I I I I I I I I I 



I 

#••• Orive • & a clawped disk 

Side • 

— -— See tar • 
— — Track • 

Mask 

— --- Confir«ation byte 

--— - Mrite protect Ian 

-••-. Faraiat/Vcr if y Parameters 



0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 

OF 
4F 
01 
E6 
86 
66 
06 
OF 
4F 
00 

06 

00 
00 
10 
10 
00 
00 

- 17 LISA 



TTCDRIVE 

TTCSIOE 

TTCSECTR 

TTCTRACK 

TTCMASK 

TTCFCFM 

TTCMPRT 

TTCFVPM 

TESrreL 



.ECU 001 
.EQU 002 
.EOU 004 
.EOU 008 
.EOU 010 
.EOU 020 
.EOU 040 
.EOU 080 



; TEST 

; TEST 

; TEST 

; TEST 

; TEST 

i TEST 

; TEST 

i TEST 



TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 



CONSTANT: 
CONSTANT: 
CONSTANT: 
CONSTANT: 
CONSTANT: 
CONSTANT: 
CONSTANT: 
CONSTANT: 



CHECK VALIDITY OF 
CHECK VALIDITY OF 
CHECK VALIDITY OF 
CHECK VALIDITY OF 
CHECK VALIDITY OF 
Canf iriiat Ian Byte 
Mrlte Protect ian 
FarMot/vcrify 



DRIVE PARAMETER 
SIDE PARAMETER 
SECTOR PARAMETER 
TRACK PARAMETER 
MASK PARAMETER 



TESTC06 



.Byte 
.Byte 
.Byte 
.Byte 
.Byte 
.Byte 
-Byte 
.Byte 
.Byte 
.Byte 

.Byte 
.Byte 
.Byte 
• Byte 
.Byte 
.Byte 
.Byte 



TTCDRIVE^ 
TTCDRIVE < 
TTCDRIVE 
TTCDRIVE < 
TTCDRIVE^ 
TTCDRIVE^ 
TTCDRIVE^ 
TTCDRIVE^ 
TTCDRIVE^ 
000 



TTCSIOE*TTCSECTR 
TTCSIOE^TTCSECTR 



►TTCTRACK 
►TTCTRACK*TTCHPRT 



TTCSIOE< 
TTCSIOE^ 
TTCSIOE^ 
TTCSIDE< 
TTCSI DE< 
TTCSIOE^ 



TTCTRACK 
TTCTRACK 
TTCTRACK 
TTCTRACK 
TTCSECTR 
TTCSECTR 



; READ 
; MRITE 
• UNCLAMP 
TTCFCFM*TTCWPRT*TTCFVPM 5 FORMAT 



►TTCFVPM 
TTCFCFM*TTCMPRT 

►TTCTRACK 
►TTCTRACK*TTCWPRT 



TTCDRIVE*TTCSIDE*TTCTRACK 

000 

000 

TTCMASK 

TTCMASK 

000 

000 



VERIFY 

FORMAT TRACK 
VERIFY TRACK 
READ H/O CKSM 
NRITE U/D CKSH 
CLAMP 

SEEK 

CALL 

CLRIST 

SETIMSK 

CLRIMSK 

HAITROH 

Drap Dead 



FILE: TABLES. TEXT Seny DRIVER FOR LISA 
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4^/» T IPi» T . ILXI 



11391 




11391 




11391 




11391 




11391 




11391 


1139 


11391 


D5 


113AI 


CO 


113BI 


A7 


113CI 


89 


113Dt 


64 


113CI 


IE 


113FI 


04 


11401 


09 


11411 


68 


11421 


64 


11431 


02 


1144t 


82 


11451 


4r 


11461 


OOOD 


11461 




11461 




11461 




11461 




11461 




11461 


1146 


11461 


OC 


11471 


OB 


11461 


OA 


11491 


09 


114AI 


08 


114BI 




114BI 




114BI 




114Bi 




114BI 




114BI 




114BI 


114B 


114BI 


D5 


114Ci 


AA 


114DI 


96 


114EI 


DE 


114FI 


AA 


llSOt 




11501 


1150 


11501 


D5 


11511 


AA 


11521 


AD 


11531 


DE 


11541 


AA 


11551 




11551 




11551 




PACE 
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11551 




11551 




11551 




11551 




11551 




11551 




11551 




11551 




11551 




11551 




11551 


1155 


11551 


A5 35 


11571 


AO 04 


11591 


D9 •♦♦♦ 


115CI 


BO** 


115EI 


88 


115FI 


D0F8 


115C* 


03 


11611 


60 


1162t 




11621 




11621 




USA* 


6211 


11621 


1162 


1162t 


00 


11631 


10 


11641 


20 


11651 


30 


11661 


40 


11671 




11671 




PAGE 
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11671 




11671 




11671 




11671 





.Page 



;♦♦ 












SboreRDHi 


.equ * 






.Byte 


0D5 




.Byte 


oco 




.Byte 


0A7 




• Byte 


089 




.Byte 


064 




.Byte 


DIE 




.Byte 


004 




• Byte 


009 


RomID 


.Byte 


088 




.Byte 


064 




.Byte 


002 




• Byte 


130. 




.Byte 


04F 


ShareSz 


.ECU *- 


ShareRoM 



SHARED RAH DEFAULT TABLES 



0:15 Default speed codes for 5 classes 
16:31 
32:47 
48:63 
64:79 

SeDly Speed change Delay: 
HeaDclay Head settling tl»e: 
MAXDDLY DIP SAHPLE DELAY — 
ROH identification nunber ( •0018/FCC031 ) 
MAXRETRY HAXIHUH RETRIES COUNT: 100 
MAXRECAL HAXIHUH RECALL! BR AT I ON COUNT: 1 
StpDly * lOOusec far step delay 
MOnDly Hatar On delay: 400 ws - 10 for SpdChk 
Site of shared variable area 



150 MS 

30 MS - 10 far SpdChk 

USED FOR MOTOR OFF 



SECPKTRK «« MUHBER OF SECTORS PER TRACK 



SECPRTRK . EOU • 

.BYTE 12. 

.BYTE 11. 

.BYTE 10. 

.BYTE 9. 

.BYTE 8. 



0:15 
16:31 
32:47 
48:63 
84:79 



Imo tables — Address «arks & Data warks 

a I laws Medlf ication by high level saftware for capy pratcctien 



SavAdr 



SavDat 



.equ * 
.byte 0D5 
.byte OAA 
.byte 096 
.byte ODE 
.byte OAA 

.equ * 
•byte 0D5 
.byte OAA 
.byte OAD 
.byte ODE 
.byte OAA 



; First 3 bytes indicate start of address field 

; lost 2 bytes finish the address field 

; First 3 bytes indicote start of data field 

; last 2 bytes finish the data field 



•INCLUDE TRKCLASS 
FILE: TRKCLASS. TEXT Sony DRIVER FOR LISA 



.Poge 



TRACKCLASS Mill return the class (from to 8 ) of 
the track in IIOB^TRACK in the "Y** register. 



RETURNS: 



"V reg « doss of track 
y^^ reg « IIOB^TRACK 
'*X** reg « unchanged 



TRKCLSS 



S21 



$42 



CLSSTBL 



.EOU • 

LDA IIOB^TRACK 

LDY OMAXCLASS 

CHP CLSSTBL, Y 

BCS 842 

DEY 

BNE S21 

RTS 



.EOU ♦ 

.BYTE 00 

. BYTE 10 

.BYTE 20 

. BYTE 30 

. BYTE 40 



; Entry point 

; Fetch current track value 

; Maiiiiium class number 

; Track >« Table entry? 

; Yep 

; Try ncKt track class 

; "Y" reg « traek class value 



Start af track class table 

Trock 0:15 

Troek 16:31 

Traek 32:47 

Track 48:63 

Traek 64:79 



.INCLUDE FR3T01 
FILE: FR3T01.TEXT Sony DRIVER FOR LISA 



.PACE 



FR3T01 will take 3 bytes and ereate 1 compos ite byte from them. 



11671 








J 




Input re9lster usogc: 


11671 








i 






A :« >CCCCCCCC< 


11671 








J 






X :« >BBB6866B< ' 


1167| 








J 






Y : « >AAAAAAAA< 


11671 








' 








11671 








J 




Output register usage: 


11671 








1 






A :« >00AAe6CC< » Nlbblised 


1167| 








i 


^ 






11671 








/ 








11671 


1167 




rR3T01 


.EOU 


♦ 


From 3 to 1 routine 


11671 


4A 










LSR 


A 


Ignore low 6 bits of **A** os they 


11661 


4A 










LSR 


A 


Mill get shifted out ond lost 


11691 


85 


6E 








STA 


TEMPI 


>OOCC»»KK< 


116Bi 


8A 










TXA 




116CI 


29 


CO 








AND 


•OCO ; Clear lo«a bits 


116£i 


05 


6E 








ORA 


TEMPI ; >BBCCKacii»< 


11701 


4A 










LSR 


A 


11711 


4A 










LSR 


A 


11721 


85 


6E 








STA 


TEMPI s >0066CCkk< 


11741 


98 










TYA 




11751 


29 


CO 








AND 


•OCO ; Clear low bits 


11771 


05 


6E 








ORA 


TEMPI ; >AA6eCCiiK< 


11791 


4A 










LSR 


A 


117AI 


4A 










LSR 


A ; >00AA66CC< 


117BI 


AA 










TAX 




117CI 


BD 


0010 






LDA 


NI6L, X ; Nibblize the new eemposite byte 


117r| 


60 










RTS 




iieoi 
















11801 
















11801 
















11801 










INCLUDE DENI66LE 


PACE 


- 20 


LISA 


FILE: DENIBBLE.TCXT Sony DRIVER FOR LISA 


11801 










.PAGE 






11801 










• •• 






11801 
















11801 














DE-NIBBLE TABLE 


11801 
















11801 










7-6IT 


TO 6-6IT *DENIBLI2E* TA6LE (16-SECTOR FORMAT). 


11801 










• VALID 


CODES 096 TO OFF ONLY. 


11801 










, CODES 


WITH MORE THAN ONE PAIR OF ADJACENT ZEROES OR WITH NO ADJACENT ONES 


11801 
11801 
11801 










(EXCEPT BIT 7 


) ARE EXCLUDED. 










♦ ♦ 






11801 
















11801 


00 


00 


00 00 00 


00 00 


ORG 1196 




11961 


1100 






9NI6L 


.EOU 


♦-0096 


11961 


00 


01 


98 






.6YTE 


000.001,098 


11991 


99 


02 


03 






.6YTE 


099,002,003 


119CI 


9C 


04 


05 






.6YTE 


09C, 004, 005 


119F| 


06 


AO 


Al . 






.6YTE 


006,0A0,0A1 


11A2I 


A2 


A3. A4 






• 6YTE 


0A2,0A3.0A4 


llASi 


AS 


07 


08 






.6YTE 


0A5.007,008 


llA8i 


A8 


A9 


AA 






.BYTE 


0A8,0A9,0AA 


llABi 


09 


OA 


06 






.BYTE 


009, 00 A, 006 


llAEi 


OC 


00 


BO 






.BYTE 


OOC, 000,060 


llBll 


Bl 


OE 


OF 






.BYTE 


061,00E,00F 


llB4t 


10 


11 


12 






.BYTE 


010,011,012 


11B7| 


13 


68 


14 






.BYTE 


013,068,014 


llBAt 


15 


16 


17 






.BYTE 


015,016,017 


llBDl 


18 


19 


lA 






.BYTE 


018,019,01A 


llCOl 


CO 


CI 


C2 






.BYTE 


0CO.0Cl,OC2 


11C3I 


C3 


C4 


C5 






.BYTE 


0C3,0C4,0C5 


llC6t 


C6 


C7 


C8 






.BYTE 


0C6,0C7,0C8 


11C91 


C9 


CA 


16 






.BYTE 


0C9.0CA,016 


llCCi 


CC 


IC 


ID 






.BYTE 


OCCOIC.OID 


llCFj 


IE 


DO 


Dl 






.BYTE 


DIE, 000,001 


11021 


02 


IF 


04 






.BYTE 


002, OIF. 004 


llDSl 


D5 


20 


21 






.eYTE 


005.020,021 


11D81 


08 


22 


23 






.6YTE 


008.022,023 


llOBi 


24 


25 


26 






.6YTE 


024,025,026 


llDEi 


27 


28 


CO 






.6YTE 


027,028.0E0 


llEll 


El 


C2 


E3 






.6YTE 


0E1,0E2,0E3 


llE4t 


E4 


29 


2A 






.BYTE 


0E4,029,02A 


11E7I 


26 


E8 


2C 






.BYTE 


026.0E8.02C 


llEAi 


2D 


2E 


2F 






.BYTE 


02D,02E.02F 


llEDi 


30 


31 


32 






.BYTE 


030,031.032 


iiroi 


ro 


Fl 


33 






.BYTE 


0F0,0F1,033 


Iir3i 


34 


35 


36 






.BYTE 


034.035.036 


iir6i 


37 


38 


F8 






.BYTE 


037.038,0F8 


Iir9i 


39 


3A 


36 






.BYTE 


039.03A.03B 


llFCl 


3C 


3D 


3E 






• BYTE 


03C,03D,03E 


llFFi 


3F 










.BYTE 


03F 


12001 
















12001 
















12001 










.INCLUDE NEWRMADDR 


PACE 


- 21 


LISA 


FILE: 


MEWRWADDR.TEXT 


Sony DRIVER FOR LISA 


12001 










.PAGE 






12001 










> ** 






12001 
















12001 














WRITE ADR FIELD SU6R0UTINE 


12001 
















12001 










i (16-SECTOR FORMAT) WRITES 27, 40-USEC {10-6IT) SELF-SYNC NI6LS. ADR FIELDS 



14 Dec 83 



12/SYSP:SY.TEXT 



Page 010 



12001 




; 16-SECTOR START MARKS (0O5.0AA.096 ), 


BODY (TRACK. SECTOR. SIDE. VOLUME. 


12001 




; CHECKSUM). END FIELD MARKS, AND THE MRITE tURN-OFF NIBL. It then Jumps to 


12001 




; the -MRSYNC" 


eodc whleh Mill write the storting sync for the doto field. 


12001 




; write the dot 


o fields and then 


return to the 


eoUer. 


12001 




;-- 












12001 
















1200i 




.ORG 


1200 




; Ensure osse«bler error if sioved. 


12001 
















12001 


1200 


HRSYNTRK 


.EOU 


♦ 


; Mrite o sync 


track before first trock 


12001 


AO 00 




Idy 


•00 


; 256 sync bytes * 6 to write (obout 2 sectors) 


12021 


ro** 




beq 


MRADROl 








12041 
















12041 


1204 


MADR16 


.EOU 


♦ 








12041 


A4 28 




LOY 


FintCap 


1 




defoult to 6*5 20usec *FF's 


1202 • 


02 














12061 


24 35 


MRADROl 


bit 


llob*Troek 


; 




look for bit 6 


12081 


50*» 




bve 


823 








120AI 


A9 01 




Ido 


•01 








120CI 


05 33 




oro 


Ilob^Side 








120EI 


85 33 




sto 


Ilob^Side 


; 




set bit in Side 


1208* 


06 














12101 


A9 01 


823 


Ido 


•1 


; 




flog for usogc of AdrHk 18 2 


12121 


20 ♦♦♦* 




JSR 


SYNC20 


! 6 


10/10 


Mrite sync fields 


12151 


A5 3A 




Ido 


AdrMk3 


; 3 


19 


Lost byte in storting bits lip 


12171 


20 ♦♦♦♦ 




J»'" 


MrNibl 


! 6 






121A1 
















121A1 


AO 02 




Idy 


•02 


; 2 






121CI 


B6 33 


S37 


ld» 


IIob*Side.y 


; 4 




Mrite Troek. Seetor, then Side 


12iq 


20 ♦♦♦♦ 




J»»- 


MrBytcX 


; 6 






12211 


88 




dcy 










12221 


ior8 




bpl 


837 








12241 
















122 4t 


A6 25 




IdK 


FwtType 


5 3 


9 


ferwot type 


12281 


20 *''♦♦ 




JSR 


MrBytcX 


S 6 


13/6 




12291 


A5 35 




IDA 


IIOB^TRACK 


5 3 


9 


Creote ADDRESS checksum. 


122Bt 


45 34 




EOR 


11 OB* SECTOR 


; 3 


12 




122DI 


45 33 




EOR 


IIOB«SIDE 


; 3 


15 




122r| 


45 25 




EOR 


FntTypc 


; 3 


18 




12311 
12341 
12341 


20 ♦♦♦♦ 




JSR 


MrBytc 


; 6 


24/6 


write the oddrcss checksum 


A5 3B 




Ido 


AdrMk4 


s 3 


9 




12361 


20 *<'♦♦ 




jor 


MrNibl 


; e 






12391 


A5 3C 




Ido 


AdrMkS 


; 3 


9 


Lost byte in oddrcss field 


123BI 


20 •♦•• 




J"" 


MrNibl 


; 6 






123q 
















123q 


20 ♦•♦♦ 




JSR 


SHTOFF 


; 6 


16 


Return to SENSE mode 


12411 


A9 IE 




Ido 


•ErrMdr 


; 2 




UnderRun during header 


12431 


B0*» 




bcs 


MstT« 


J 2.3 




abort upon error 


PACE 


- 22 LISA 


FILE: NEHRWADDR 


.TEXT 


Sony DRIVER FOR LISA 






12451 
12481 
1243* 


4C ♦♦•♦ 




JMP 


Mritcie 


; 3 




Go & write doto to disk 


03 














12481 


60 


MSTTM 


RTS 




s 6 


10 




12491 
















PAGE 


- 23 LISA 


FILE: NEMRMAODR 


.TEXT 


Sony DRIVER FOR LISA 






12491 




.PACE 












12491 




;♦♦ 












12491 




; 




RDADR 






12491 




... 












12491 
















12491 


1249 


ROADR 


.EOU 


« 








12491 


A9 00 




Ido 


•0 








12481 


85 SC 




sto 


RongcL 








12401 


A9 06 




Ido 


•RdAdrTiiit 








124r| 


85 50 




sto 


RongeH 








12511 


20 •♦♦♦ 




J*r 


SetRMode 


; setup PAL on 


Sony to read mode 


12541 


AO 0C08 




LDA 


Q6L 


i Switch from SENSE to READ 


12571 
















12571 


E6 5C 


ROASYN 


inc 


RongeL 


; 5 






12591 


DO** 




bnc 


RDADl 


( 2,3 






125BI 


C6 SO 




dee 


RongeH 


\ s 






125QI 


ro** 




beq 


RAERRl 


1 2.3 






i25n 
















1259* 04 














125r| 


A2 00 


RDADl 


IdK 


•00 








12611 


AD 0E08 


824 


Ido 


07L 


► 4.. 






12641 


30** 




b«ii 


RdAsnl 


1 2,3 




Volid if high bit « 1 


12661 


CA 




deic 




; 2 






12671 


oore 




bne 


824 


2,3 




loop 255 times *« 85 bytes 


12691 


FO** 




beq 


RoErrl 


, 3 






12681 
















1264* 


05 














12681 


C5 38 


RDASNl 


CMP 


AdrHkl 


2.. 




ADDRESS MARK 1? 


12601 


D0E8 




BNE 


RDASYN 


2.3 




BRANCH IF NOT 


I26ri 
















126n 


AD 0E08 


RDAD2 


LDA 


07L J 


4. . 






12721 


lOTB 




BPL 


R0AD2 


2.3 






12741 


C5 39 




CMP 


AdrMk2 


► 2.. 




ADDRESS MARK 2? 


127U 


D0r3 




BNE 


RDASNl 


2,3 






12781 
















12781 


AD OE06 


RDAD3 


LDA 


Q7L 


1 4.. 






127BI 


lOFB 




BPL 


RDAD3 


2,3 







14 Dec 83 



IJy^VtPzSY.TEXT 



r«gC WAA 



12701 


C5 3A 




CHP 


AdrMk3 


' 


2.. 


Address Mark 3? 


I27ri 


OOEA 




BNE 


RDASNl 




2,3 




12611 
















12811 




5 HARKS 


READ NOM READ ADDRESS 






12811 




; CARRY 


IS SET 










12811 
















12811 


A2 04 




LDX 


VAORSLEN 








12831 


A9 00 




LOA 


•000 




2 CLEAR CSUH 


12851 


85 55 


RFLD 


STA 


CSUH 






27 


12871 


AC 0E08 


RDAD4 


LOY 


07L 








128Ai 


lOFB 




BPL 


R0AD4 




• 


6 Do again if ne valid data. 


128CI 


B9 0011 




LOA 


DNIBL.Y 




4 


12 Unpack the data 


128FI 


95 SO 




STA 


CsinFnd, X 






16 Stare in FOUND table 


12911 


45 55 




EOR 


CSUM 




3 


19 Update eheeksum 


12931 


CA 




DEX 






2 


21 Next field 


12941 


lOEF 




BPL 


RFLD 




2.3 


24 Loop until *'X** beeooes negative. 


12961 


AA 




TAX 






2 


If "CSUM- • then AOK. 


PACE 


- 24 LISA 


FILE: NEWRHAODR. TEXT 


Sony DRIVER 


FOR LISA 




12971 


00** 




BNE 


RAERRS 




2,3 


Not OK, signal on error. 


12991 
















12991 




; NoM eoMpare egainst 2 f ino 1 by 


tes and 


Moke sure ot right trock ond sector. 


12991 
















12991 


AO 0E08 


RASLPl 


LDA 


07L 




4.. 




129CI 


lOFB 




BPL 


RASLPl 




2.3 




129EI 


C5 3B 




CMP 


AdrMk4 




2.. 




12A0I 


D0»* 




BNE 


RAERR2 




; 2,3 




12A2I 


A9 01 




Ida 


•01 




2 




12A4t 


24 52 




bit 


SdFnd 




, 3 




12A6I 


FO** 




beq 


RaS lp2 




, 2,3 




12A8t 


A9 40 




Ida 


•40 








12AAi 


05 54 




ora 


TrkFnd 








12ACi 


65 54 




sta 


TrkFnd 








12A6* 


06 














12AEt 


AD oeo8 


RA$LP2 


LDA 


07L 




{ 4.. 




12B1I 


lOFB 




BPL 


RASLP2 




; 2.3 




12B3I 


C5 3C 




CMP 


AdrMkS 




. 2.. 




12BSI 


DO** 




BNE 


RAERR2 




\ 2.3 




12B7I 


AS 35 




LDA 


II06*TRACK 




; 3 




12B9i 


CS 54 




CMP 


TRKFND 




; 2 




12BBI 


DO** 




BNE 


RAERR4 




\ 2 




12BDI 


AS 34 




LDA 


IIOB^SECTOR 




; 3 




12BFI 


CS 53 




CMP 


SECFNO 




; 2 




12C1I 


DO** 




BNE 


RAERR3 




i 2 




12C3I 


18 




CLC 






t 2. . NO ERROR 


12C4I 


AS 51 




LDA 


VOLFND 




; Load 


the Disk ID voluc just reod. 


12C6I 


85 09 




STA 


lOB^DISKID 




\ Tell 


Kest about i#hot type of disk it is 


12C8i 


68 


RAEXIT 


CLV 






; Clear 


overflow bit (PREVIOUSLY USED FOR FATAL) 


12C9I 


AO 0D08 


RACXITl 


LDA 


08H 




; Switeh baek from READ to SENSE 


12CCI 


60 




RTS 










12CDI 


• 


; NE ABORT UPON 


FIRST ERROR- 


-NO MATTER WHAT IT IS. THESE ALL GET RESET 


12C0t 
12CDt 
1269^ 




; ON SEEKINC (EVEN HICROSTEPPINC 


). 




62 














1250* 


6E 














12C0t 


E6 4B 


RAERRl 


INC 


RASTRT 




{ Stort 


bits lip Error — Fotol error 


I2cri 


38 




SEC 










12001 


B0F6 




BCS 


RAEXIT 








1202t 




^ 












12B5* 


IB 














12A0* 


30 














12D2I 


C6 4C 


RAERR2 


INC 


RAENO 








12041 


38 




SEC 






; Ending bits lip Error 


12051 


BOFl 




BCS 


RAEXIT 








12071 
















12C1» 


14 














12071 


C6 40 


RAERR3 


INC 


RASCTR 








12091 


38 




SEC 






\ Seete 


p error 


120AI 


BOEC 




BCS 


RAEXIT 








120CI 
















1297 ♦ 


43 














120Ci 


E6 4F 


RAERRS 


INC 


RACSUM 








120EI 


38 




SEC 






i Cheek 


SUM error 


12Dri 


B0E7 




BCS 


RAEXIT 








PACE 


- 25 LISA 


FILE: NEWRWADOR. TEXT 


Seny DRIVER 


FOR 1 


LISA 




12Elt 
















126B* 


24 














12E1I 


E6 4E 


RAERR4 


INC 


RATRK 




5 Trock 


error 


12E3t 


38 


RA£RR6 


SEC 










12E4I 


B0E2 




BCS 


RAEXIT 








12E6I 
















12E6I 
















12E6i 




.INCLUDE Interf 


aec 








PACE 


- 26 LISA 


FILE: INTERFACE. TEXT 


Sony DRIVER 


FOR 1 


LISA 




12E6I 




.page 












12E6i 




;♦♦ 












12Eei 




; 


Interf aec routines 






12E6t 




» ** 












12E6i 
















12E6I 


12E6 


SELSIDE 


.EOU 


. ♦ 








12E6I 


A2 00 




IdK 


•0 









12C8I 


A9 20 


X2CAI 


24 33 


12ECI 


ro*^ 


12ECI 


C8 


12EF| 




12EC* 


OX 


l2Eri 


X2EF 


12EFI 


AO 0X08 


I2r2| 


AO 0308 


X2rsi 


BO XA08 


I2r8i 


8A 


X2r9| 


SO 


12FAI 




12FAi 


12FA 


12rA| 


A2 00 


12rC! 


FOFX 


X2rE| 




X2rci 


X2FE 


X2rE| 


A2 01 


X300I 


DOED 


X302I 




X302I 


1302 


X302I 


20 rE12 


X305I 


AD 0208 


X3081 


AO 0408 


X30B{ 


130B 


X30BI 


AO 0008 


X30EI 


AO 0E08 


X3XXI 


DA 


X3X2I 


GO 


X3X3I 




X3X3I 


1313 


X3X3I 


18 


X3X4i 


1314 


X3X4I 


20 rE12 


X317I 


AD 0008 


X3XA1 


90EC 


X3XCI 


B0E7 


X3XEI 




X3XEi 


131E 


X3XCi 


38 


X3XFI 


B0F3 


X32XI 




X32XI 


1321 


X32Xi 


80 0708 


X324i 


EA 


X325I 


CA 


PACE 


- 27 LISA 


X326I 


8D 0608 


X329I 


60 


X32AI 




132AI 


132A 


132AI 


80 0508 


X32DI 


A9 00 


X32F| 


ro** 


X33Xt 




X33XI 


1331 


X33Xt 


80 0408 


X3341 


A9 JT 


X336I 




X32F* 


OS 


X336I 


1336 


X33SI 


8S 21 


X338I 


20 rA12 


X33Bi 


80 0008 


X33EI 


4C 2113 


X34XI 




134X1 


1341 


134X1 


20 3113 


X344| 


A9 SO 


X346I 


20 •♦♦♦ 


X349I 


1349 


X349I 


20 rE12 


X34CI 


AD 0408 


X34F| 


60 


X350i 




X350i 


1350 


X3501 


86 S9 


X352I 


1352 


X352I 


20 FA12 


X355I 


80 0008 


13S8t 


80 0208 


13SB1 


A6 59 


135Dt 


90 0408 


13601 


4C 2113 


13631 




13631 


1363 


X363i 


A9 01 


X36SI 


85 6E 


X367| 


20 FA12 


X36AI 


80 0208 


X360( 


80 0408 


X370I 


20 2113 


X373I 


20 ♦♦•♦ 





Ido 


■20 




bit 


nOB^Sidc 




beq 


SctSel 




ln» 




SetScl 


.equ 


9 




Ido 


CaO^High 




Ida 


Cal^High 




Ida 


SidcOScl, 




tiia 






rts 




SetLeni 


.cqu 


♦ 




ld» 


•LeM 




beq 


SctScl 


SetHigh 


.equ 


♦ 




ld» 


•High 




bne 


SctScl 


ReodHp 


.cqu 


« 




Jsr 


SetHigh 


RdS2 


Ida 


Cal^Law 


RdSl 


Ida 


Ca2«Laiii 


Rcadit 


.equ 


♦ 




Ida 


Q6H 




Ida 


07L 




asl 


a 




rta 




ReadlndK 


.ecu 

cle 


♦ 


Rid 


.equ 


• 




Jsr 


SctHigh 




Ida 


CaO^Laitf 




bcc 


RdSl 




bcs 


RdS2 


ReadDip 


.ECU 
sec 


♦ 




bcs 


Rid 



; set Side Select line law 



; set line high 



; read sense bit & ratate inta ecC 

; Ensure state machine is in praper state 

; READ SENSE DATA INTO Bit07 

: MOVE eit07 TO CARRY 



set Ca2 * 

set Cal & Ca2 « 



DaStrb . equ * 

sta LStrb^High 
nap 

nap ; leave LStrabe law far 4 usee per G. Craw 

FILE: INTERFACE. TEXT Sang DRIVER TOR LISA 





sta 


LStrb^Low 




rts 




TrHtOff 


.equ 


« 




sta 


Ca2«High 




Ida 


•00 




beq 


TurnMtr 


TrnMtrOn 


.equ 


♦ 




sta 


Co2«low 




Ida 


•Off 


TurnMtr 


.equ 


♦ 




sta 


MtrOn 




Jsr 


SetLow 




sta 


CaO^Law 




J*P 


DaStrb 


THOn 


.equ 


♦ 




J««" 


TrnMtrOn 




Ida 


•80. 




J**" 


Wait 


SetTach 


.equ 


♦ 




Jsr 


SctHigh 




Ida 


Ca2«Law 




rts 




SetDretX 


.equ 


♦ 




stx 


Direct 


SetDret 


.equ 


» 




Js*- 


SetLaw 




sta 


CaO^Law 




sta 


Cal«Law 




IdK 


Direct 




Sta 


Ca2.« 




J»P 


DaStrb 


DaStep 


.equ 


♦ 




Ida 


•1 




sta 


TcMpl 




Js*- 


SetLow 




sta 


Cal ♦Low 




sta 


Ca2«Lew 




J«'* 


DaStrb 


SIO 


J«»" 


HaitAlt 



; Mill turn aeters off 



; Mill turn the Sony aiatar en 



; set state register in Rao 
; set Side select line lew 



; turn en juatar & setup for tach reading 

; will leave Ca2 « 

; 400(5*80 ) osec cans tan t 

; set Side select » 1 far Tach input 
; '1011* fer Tach made 

; use value in Xreg far direct ien 

; set Side select line lew 

; or 1 fer offset af direct ien 



; try twice 

; set Side select line low 



wait 12 MS fer /Step to go high 



13761 


20 0613 


X37SI 


B0*» 


137a 


A9 or 


137DI 


85 00 


X37r| 


C6 6E 


13811 


loro 


1379' 


08 


13831 


1383 


13831 


60 


PACE 
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13841 




13841 


1384 


13841 


20 S213 


13871 


20 6313 


138AI 


C6 58 


138CI 


00F9 


138CI 


60 


138ri 




138rt 


138F 


138r| 


20 5511 


13921 


1392 


13921 


84 23 


13941 


B9 10 00 


13971 


80 2008 


139A1 


60 


139BI 




1252* 


9613 


139BI 


1396 


139Bi 


20 E612 


139£| 


60 0008 


13A1I 


SO 0208 


13A4I 


80 0508 


13A7I 


60 


13A8I 




13A8I 


13A8 


13A8I 


20 FA12 


13ABi 


80 0508 


13ACI 


AD 0708 


13611 


A9 96 


13631 


20 ♦♦♦♦ 


13661 


AD 0608 


13691 


A9 00 


13661 


85 20 


13601 


18 


136EI 


60 


136r| 




136r| 


13BF 


136FI 


A2 OE 


13C1I 


90 0008 


13C4I 


CA 


13C5I 


CA 


13C6I 


10F9 


13C8I 


A9 CA 


13CAI 


20 ♦•♦♦ 


13CDI 




13CDI 


A2 00 


13Cri 


86 6E 


13D1I 




13011 


CA 


13021 


oo** 


13041 


C6 6E 


13061 


ro»* 


13081 




1302* 


04 


13061 


AD 0D08 


PACE 
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13061 


AD 0E08 


130EI 


A8 


130r| 


29 20 


13E1I 


DOEE 


13E3I 




13E3I 


98 


13E4I 


29 IF 


13E6I 


C9 IF 


13E8I 


ro»* 


13EAt 




13EAI 


A9 IF 


13ECI 


80 0F08 


13EFI 


AO 0E08 


13r2| 


4C 0113 


13F5I 




13E8* 


06 


I3r5i 


8D 0608 


I3r8i 


80 0908 


I3r6i 


A6 10 


i3rot 


8E 1008 


14001 


8E 2008 


14031 


8E 1708 


14061 


60 


14071 




1306* 


2F 


14071 


1407 





J»»- 


f^eedlt 




bes 


DoStDonc 




tdo 


•StepErr 




sto 


leb«SeekErr 




dec 


Tempi 




bpl 


SIO 


DeStOonc 


.equ 
rts 


9 



; eeC • /Step -- ■ Iom & 1 • High 

; /Step ts high so oH is eoel 

; fer e»ternal debugging aid ( rCC016 ) 

; Ma it anether 12ins 



FILE: INTERFACE. TEXT Sony DRIVER FOR LISA 



fall thru 6 exit m/ no error 
; ne anc there te 1 isten te error anyinay 



DaSeek 


.equ 


^ 




JS'" 


SetDret 


S23 


J8«^ 


DaStep 




dec 


StpAmt 




bne 


S23 




rta 




SetSpeed 


.equ 


• 




Jar 


TrkClss 


SetSpdy 


.equ 


• 




sty 


CurC lass 




Ida 


MSpdTbl.y 




sta 


PwMiRcg 




rts 




SetRHade 


.equ 


♦ 




i^r 


SelSide 




Sta 


CaO^Law 




sta 


Cal^Law 




sta 


Ca2«High 




rta 




UnClaaip 


.equ 


♦ 




Jar 


SetLaw 




sta 


Ca2*High 




Ida 


LStrb^High 




Ida 


•150. 




J«»^ 


Uait 




Ida 


LStrb^Law 




Ida 


•0 




sta 


Clamped 




clc 






rts 




Hardin it 


.equ 


♦ 




IdK 


•OE 


S7 


sta 

dCK 

deic 


lOSpace, M 




bpl 


t7 




Ida 


•202. 




Jar 


Ma it 




IdK 


•0 




StK 


Tempi 


SIS 


dex 






bne 


S30 




dee 


Tempi 




beq 


MardAbert 



; set the direetian 

; eaunt dawn the number of steps ta take 
; exit upan reaching zera 



; return m/ 'Y* « class af IIob^Track 
; already has *y* « track class 



. use value in II06«Sidc te set proper side 
; *h100* is input to HCI PAL on Sony 

; '0111* 

; 3/4 sec (200*5usec) delay for ejection 
; Mill ma it & return m/ carry cleared 

; tell me disk is no longer clomped 

; Initialise the hardmare — PHH & IMM 

; reset all IHH internal latches to zero stote 

; loop 8 times 

; woit for 1.01 sec for timer to expire 

; SIOOOO times before timeout 



; if timeeut then IMM is out ta lunch 



S30 



Ida 06H 



FILE: INTERFACE. TEXT Sony DRIVER FOR LISA 



put IMM stote moehinc into SENSE mode 



S45 



Ida 


07L 


toy 




ond 


•20 


bne 


SIS 


tya 




and 


•IHHHodc 


emp 


SiHMHodc 


beq 


S4S 


Ida 


•IMMMadc 


sta 


07H 


Ida 


07L 


Jmp 


S15 


sta 


DrEna*High 


sta 


MtEna^On 


Idx 


MSpdTbl 


stx 


CntEna^Low 


stx 


PMHRcg 


stx 


PMmEna^High 


rts 





read status data 

save IMM' 8 status informatian 

test bit 9S 

MS it far bit •S to be c leer ( ) 

restore status info 
mask aff unnecded bits 
look for prapcr bits to be set 
if same then all is OK 

Asynch, 8 HHz, latch, 2 us cells, na timer 

setup te prapcr Sony mode 

back to Sense mode 

walk through & make sure it works 



select drive 1 

new enable that drive forever A ever, 
default speed eadc far track 
enable eauntcr/eamparator 

enable output of Pwm pulse 



HordAbert . equ 



14( 

14( 

140Bt 

140EI 

140Q 

140CI 

X410i 

14121 

14151 

14161 

14191 

141CI 

141CI 

14201 

14211 

14241 

14261 

14291 

142BI 

142DI 

1429^ 

142r| 

141C* 

14311 

14321 

14321 

14321 

14321 

14321 

PACE 



4C ♦♦♦♦ 

140E 
A9 01 
65 OA 

20 rA12 

6D 0506 

36 

AO OEOe 

30»* 

C6 24 

16 

60 0006 

A9 02 

AE OE06 

10*» 

E6 OA 

09 20 

04 

65 25 

13 

60 
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Ido 


•IHHError 




sta 


Ieb«ErrStat 




J«P 


Foto!Err 


ChkDrv 


.equ 


« 




Ido 


•1 




sto 


I0B«NoSides 




Jsr 


SctLew 




sto 


Co2^High 




sec 






Ido 


07L 




bMi 


S30 




dec 


DrvCenn 




clc 






sto 


CoO^LoM 




Ido 


•2 




IdK 


07L 




bpl 


S23 




Inc 


IDB^NoSldes 




oro 


•20 


S23 


sto 


FmtTypc 


S30 


rts 





; fatol error m/ IMM -- does not respond 

; obort ond never return 

; cheek for drive eenneetcd & number of sides 

; ossume single sided drive (1 * single sided) 

; •0111* 

; ossume no drive exists 

; high bit « stotus 

; if bit7 « 1 then no drive is connected 

; set drive connected flog 

; now look ot octuol number of sides 

; assume only single sided 

; 2 « double sided drive 

; set double side flog for format field 

; for use in formotting 

; eeC » ««> drive connected 



FILE: LOOP. TEXT Sony DRIVER FOR LISA 



14321 

PACE 



31 LISA 



.INCLUDE LOOP 
FILE: LOOP. TEXT Sony DRIVER FOR LISA 



14321 

14321 
14321 
14321 
1432i 
1432t 
14321 
1432t 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
PACE • 



.PACE 



RESTART 



RESTART IS THE ENTRY POINT AFTER A RESET TO THE 6504. THIS IS ALSO REFERRED 
TO AS A COLD START. It will first wait for BCmory to be vol id, then It will 
setup the stodi, reset the drives, cleor oil of the used RAM, tronsfer oil 
"soft- poromcters from the ROM to the RAM, Initio Use oil timing constonts. 
check for Disk In Ploce ond clomp ony disks that ore there, raise the DISK 
DIAC line, and then finally laok for a command. 



REGISTERS 
IN 

RANDOM VALUES ASSUMED 
OUT 

ALL DESTROYED 



32 LISA 



FILE: LOOP. TEXT Sony DRIVER FOR LISA 



14321 

1432i 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14321 
14331 
14341 
14341 
14371 
143Ai 
143Dt 
143F| 
1440i 
14431 
14461 
14491 
144B1 
144EI 
144Ei 
144£t 
144E1 
144Et 
14501 
14521 
14541 
14551 
14571 
14S9i 
1459t 



1432 



D6 
76 

6D 1C08 
60 1E08 
60 1608 
A2 CF 
9A 

20 BF13 
20 ♦•♦♦ 
20 ♦♦♦♦ 
A9 00 
20 ♦♦♦♦ 



A2 BF 
A9 00 
95 00 

CA 
DOFB 
65 00 



.PACE 



RESTART 



.EOU 



.-MAIN ENTRY POINT FOR THE 6504 FROM RESET 



CLEAR DECIMAL MODE; 
DISABLE INTERUPTS TO THE 6504; 
SWITCH OFF INTERUPT TO 66K; 
SET STACK POINTER TO OBO; 
ENABLE MEMPOY FOR 66K 



DNWHUT 



CLD 




SEI 




STA 


BOOTL 


STA 


FDIRL 


STA 


DISL 


LDX 


•StackSt 


TXS 




J**- 


Hardin it 


Js*- 


RomTcst 


Jsr 


RomTcst 


Ida 


•00. 


Jsr 


Matt 



CLEAR DECIMAL MODE 

MASK OFF INTERUPTS 

following 3 steps needed only for warm restart 

Tell host I*m not reody yet 

SET FDIR LOW, NO INTERUPT YET TO THE 68K 

ENABLE 66K TO READ MEMORY 

SET STACK TO CROW DOWN FROM OICF 
initialize hardware - PMM, IHM, Latches 
will never return if on error is found 
currently on RTS 

wait for Sony to power-up -- about 1.25 seeond 



FOR X:«»LstUsed DOWNTO 000 DO 
MEMORY, X :« 000; 



RESET VARIABLE MEMORY FOR 6504 
THIS RESETS ALL COUNTERS TO 000 



LDX 


•LSTUSEO 


LDA 


•00 


RESTARTl STA 


GoByte, X 


DEX 




BNE 


Restartl 


STA 


GeByte 



FOR X:«SHARESZ DOWN TO DO 



LENGTH OF VARIABLE AREA 
SOMETHING TO CLEAR WITH 
Init to 



And do the lost/first byte 

INITIALIZE SHARED VARIABLES 



14 Dec t3 



i:^/SYSP:SY.TEXT 



^•ge OlS 



1459) 




14591 


- - ■ - 


14S9I 


A2 00 


145BI 


BD 3911 


145EI 


95 10 


14601 


CA 


14611 


ior8 


14631 




14631 


A2 04 


146Si 


BO 4B11 


14661 


95 36 


146AI 


BD son 


14601 


95 70 


146FI 


CA 


14701 


ior3 


14721 




1472) 


C6 46 


PACe 
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14741 


A2 3F 


14761 


86 70 


14781 


A2 80 


147AI 


86 7E 


147CI 




147CI 


A5 17 


147EI 


85 42 


1480) 


DO** 


14821 




14821 




PACE 
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14821 




14821 




14821 




14821 




14821 




14821 




14821 




14821 




1482t 




1482) 




14821 




14821 




1482) 




14821 




14821 




14821 




14821 




14821 




1482i 




14821 




14821 




14821 




14821 




14821 




14821 




PACE 
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14821 




14821 




14821 




14821 




14821 




14821 




14821 




14821 


1482 


1482i 


E6 26 


14841 


06 40 


1486t 


OO*^ 


1488i 


C6 41 


148AI 


00^* 


1480* 


OA 


148CI 


148C 


148CI 


20 ♦••♦ 


148F| 


C6 42 


14911 


00"* 


14931 


20 2A13 


14961 


A5 17 


1498i 


85 42 


149AI 




1491* 


07 


148A^ 


OE 


1486^ 


12 


149A1 


A5 00 


149CI 


10E4 


149Ei 


20 ♦♦♦♦ 


14A1I 


4C 8214 


14A4| 




PACE 
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14A4i 




14A4I 





SHARERAM.X j« SHAREROH, X; 





LDX 


•SMARES2 




;LCNCTH OF SHAREO VARIABLE SPACE 


RESTART2 


LDA 


SHAREROM. 


X 


;HOVE BYTES FROH ROM 




STA 


SHARERAM, 


X 


;ANO INTO RAM 




DEX 






;NEXT BYTE 




BPL 


RESTART2 




;DONE YET? 




Idic 


04 




; Move 5 bytes, zero based 


Xfcrl 


Ido 


SavAdr.s 








8tO 


AdrHkl.K 




; inltlallxe Address mark table 




Ido 


SavDat, u 








sta 


DatMkl.n 




; in it Data «ark table 




deic 










bpl 


Xferl 







dee KOFF 
FILE: LOOP. TEXT Sany DRIVER FOR LISA 



IdK 
8tx 
Id* 

StK 

LDA 
STA 
bne 



•CwdLeng 
Caidx 

•Savlndex 
SavcL 

HAXDOLY 

MTHIH 

Laapl 



i ♦♦♦ NOTE •♦♦ LOOP MUST 
FILE: LOOP. TEXT Sany DRIVER FOR LISA 



• PAGE 



index far eaimiand saving 



Must see if a disk is inserted 
E THE VERY NEXT ROUTINE 



; LOOP 

I THIS IS THE MAIN 'IDLE' LOOP MHERE THE 6504 SPENDS MOST OF ITS TIME WHEN NOT 
; DOING ANYTHING USEFUL. THE MAIN FUNCTIONS OF THE 'LOOP* IS TO SHUT OFF THE 
; MOTORS AFTER THEY HAVE BEEN USED. SAMPLE THE THE DIP AND BUTTON WHEN NEEDED. 
AND LOOK FOR COMMANDS FROM THE 68K. ; 

REGISTERS 
IN 

A « ANY VALUE 

X « ANY VALUE 

Y ■ ANY VALUE 
OUT 

LOOP NEVER EXITS. ONLY CALLS OTHER PROCEDURES 



CALLS 
i GETDIP 
; TRNPRK 
CMD 



GET THE DIP STATUS 

Park the heads and turn off the Matars. 

INTERPRETS. SYNTAX CHECKS. AND DISPATCHES ALL COMMANDS 



FILE: LOOP. TEXT Sany DRIVER FOR LISA 
.PAGE 



Decrement 3 byte eaunter. When all 3 bytes * then turn Maters aff 
( even if they are already aff ). & leak far Disk In Plaee 



LOOP 



Laapl 



.EOU ♦ 

INC IMALIVE 

DEC MTLOM 

BNE L00P2 

DEC HTMID 

BNE L00P2 

.EOU ♦ 

JSR GETDIP 

DEC WTHIH 

BNE LO0P2 

JSR TrMtOff 

LDA HAXDOLY 

STA WTHIH 



START OF MAIN LOOP 

DECREMENT LOW BYTE OF MOTOR OFF WAIT 

DECREMENT Middle byte 



; entry paint far inmeadiate cheek ef DIP 

; Time ta make same neisc and get same status 

: DECREMENT HIGH BYTE 

; turn aff meter and reset meter an flag to zero 



LDA 


IOB*GOBYTE 


BPL 


LOOP 


JSR 


CMD 


JMP 


Leap 



L00P2 



FILE: LOOP. TEXT Sany DRIVER FOR LISA 



.PACE 



TRY TO EXECUTE THE COMMAND 

GO BACK TO LOOP AND SPIN SOME MORE. 



14 Dec 


S3 


14A4| 




14A4| 




X4A4I 




1444* 


A414 


14A4| 


14A4 


14A4I 


60 


14A5I 


A9 00 


14A7I 


A8 


14A8I 


85 SC 


14AAI 


85 50 


14ACI 


85 43 


14ACI 


A9 10 


X4B0I 


85 44 


14B2i 


AA 


14B3I 


18 


14B4i 


C8 


14BSI 


A5 5C 


14B7I 


71 43 


14B9i 


85 5C 


14B6I 


88 


14BCI 


A5 50 


14Bei 


71 43 


14C0I 


85 50 


14C2I 


18 


14C3t 


10*^ 


14C5I 


38 


14C3» 


01 


14C6I 


26 5C 


14Cei 


26 5D 


14CAI 


C8 


14CBI 


C8 


14CCI 


D0E5 


14CCI 


C6 44 


14D0I 


CA 


14D1I 


DOEO 


14D3i 


A5 5C 


i4DSi 


DO** 


14D7I 


A5 50 


14D9I 


FO** 


14D6i 




14D5* 


04 


14061 


A9 06 


140C* 


0014 


14D0I 


85 06 


14DFI 


80 1808 


14E2i 


80 1008 


14E5I 


4C •*♦♦ 


14E8I 




1409* 


00 


1447* 


E814 


14E8I 


14E8 


14C8i 


60 


PACE 
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14E9I 




14E9I 




14E9i 




14E9I 




14E9I 




14E9i 




14E9t 




14E9I 




14E9I 




14E9i 




14E9I 




14E91 




14E9I 




14E9I 




14E9I 




14E9I 




14E9I 




PACE 
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14E9) 




14E9I 




1480* 


E914 


14E9I 


14E9 


14E9I 


A5 24 


14EBi 


DO** 


14ED| 


20 0E14 


14r0| 


BO** 


14F2I 




14EB* 


05 


I4r2) 


80 1C08 


I4r5i 


20 1E13 


I4r8i 


BO** 


14FAI 


A5 20 


14FCI 


00** 


i4rEi 




14FEt 


A9 C8 


15001 


20 ♦♦** 


1S03I 


20 **** 


1506) 


C6 20 


15081 





42/SYSP: SY. TEXT 



Page 016 



noMTest 


.cqu 


« 




Ida 


•0 




toy 






sto 


RangeL 




sta 


RangeH 




8ta 


InKPtrL 




Ida 


•10 




sto 


InicPtrH 




tOK 




$21 


clc 

Iny 






Ida 


RangeL 




ode 


•InnPtrL.y 




sta 


RangeL 




dey 






Ida 


RongeH 




edc 


•InKPtPL.y 




sta 


RongeH 




cle 






bpl 


843 




sec 




843 


rol 


RongeL 




rol 


RongeH 




iny 






Any 






bne 


S21 




ine 


InKPtrH 




deH 






bne 


821 




Ida 


RongeL 




bne 


RoMErr 




Ida 


RongeH 




beq 


RomTcst 



ROHTEST 



(Entry point to test eheeksum of EPROH 



y « ♦I 
y « ♦O 



y « ^2 



RoMErr 
Foto lErr 



Ido •PErrRom 

sto Iob*DrvError 

sto OisL 

sto BootH 

Jwp ProgErrl 



RoMTest . cqu * 
RTS 
FILE: LOOP. TEXT Sony DRIVER FOR LISA 



enoble 68K to reod Memory 

ond reset flog line olso 

Bod EPROH — tell host & loop forever 



;Test for bod Row 



CETOIP 



; REGISTERS 



All are destroyed 



CALLS 



Note: 



UPOXNT UPDATES INTERUPT STATUS AND RAISES fX>IR IF NEEDED 

READOIP READS DIP STATUS 

ENBLTEST TEST IMSK AGINST X-REC IF DRIVE IS ENABLED 



Should eodc ever get Modified for o tme drive system, this should 
be re-wr it ten to allow eoMMonds to be reeieved during the one seeond wait. 

FILE: LOOP. TEXT Sony DRIVER FOR LISA 
.PACE 



CETOIP 



840 



.EOU * 

Ido DrvConn 

bne 840 

Jsr ChkDrv 

bes GetOipS 



STA BOOTL 

JSR READDIP 

BCS CET0IP4 

LDA C loMped 

BNE GETDIP5 

Ida •OneSee 

Jsr Wait 

Jsr RcCalHtr 

dec C lamped 



ENTRY POINT FOR GETDIP 

if <> then drive is eenneeted 

eheek far drive eonneeted & number of sides 

exit if still no drive eonneeted 



; Set flog to tell host I'm busy 

; Reod the stotus of the DIP into Corry 

; eeC • 1 ««> no DIP — eleor Clomped Disk Flog 

; Alreody o elomped disk? 

; Na need to elemp if already elomped 

; ane seeend mo it eonstont 

; MO it for Sony drive to return to it's senses 

; Turn on mator A make sure head is ot Trock 

; set clomped flog to 'FF' 



in ucc V4 



1S08I 


20 


♦♦♦♦ 


JSR 


ENBLTEST ; 


If drive enabled then tell host disk Inserted 


ISOB) 


SO** 


BCC 


CETDIPS s 


If carry set then disk enabled 


ISOOl 












ISODi 


AS 


10 


LDA 


•010 i 


use drive 80 


ISOFi 


OS 


2F CET0IP2 ORA 


XST ; 


Camblne with eurrent 1ST 


ISllt 


85 


2F 


STA 


1ST 




15X31 


DO** 


BNE 


CETDIPS 




ISlSi 












151 Si 


1515 CCTDIP3 .EOU 


♦ 




I4r8^ 


IB 










15151 


A9 


00 GETDIP4 LDA 


•00 




15171 


85 20 


STA 


Clamped ; 


Tell sc no disk is c lasiped 


15191 












1513* 


04 










150B* 


OC 










i4rc» 


IB 










i4ro* 


27 










15191 


1519 CET0IP5 .ECU 


♦ i 


Fall thru and test for button pressed 


15191 


80 


1D08 


STA 


BOOTH ; 


Cleor busy flag ta hast 


151Ci 
151Ci 
PACE 








1 


Fall thru & update interrupt ta hast ( waybe ) 


- 39 LISA PILE: LOOP. TEXT Sony 


DRIVER FOR LISA 




151Ci 






PACE 






151CI 












151CI 






♦ ♦ 






151CI 












151CI 








UPDINT 


151CI 












151CI 






UPDlNT IS RESPONSIBLE FOR CREATING AND EVALUATING THE 1ST (INTERUPT STATUS) 
, AND RAISING (OR CLEARING) INTERUPTS TO THE SSK. 1ST CONTAINS THE FOI 1 OWING 


151CI 






ISlCi 






INFORMATION: 






151CI 












151CI 






7 


5 S 4 3 2 


1 


151CI 
151Ci 
















1 1 


till 


1 1 1 


151CI 
151Ci 
















1 


till 


1 1 


151CI 






1 


1 1 1 1 


1 ♦— - DRIVE DISK INSERTED 


ISlCi 
151CI 
151CI 
ISlCl 
151Ci 
151CI 
151CI 






; 1 
1 


till 


DRIVE BUTTON PRESSED 






1 
1 


1 II ♦* 


— •--•—- DRIVE RAI COMPLETED 






» 1 
» 1 


I —-.III"' 


■•"••••••"" LuuICAL OR OF BITS 0. I ft 2 






t 1 
1 




■•••••"•—• DRIVE 80 DISK INSERTED 






» 1 
1 




-••--•--•-• DnIVC 80 BUTTON PRESSED 






► 1 




"-•---"—- DRIVE 80 HA* COMPLETED 










.«•——••• LOGICAL OR OF BITS 4,5 ft 6 


151CI 












ISlCl 






1 THEN 1ST IS MASKED WITH IMSK MHITCH CONTAINS THE ENABLE STATUS FOR BOTH 


ISlCl 






; DRIVES IN BIT 


7 («DRIVE80) AND 


BIT 3 (•DRIVEO). IF THE RESULT IS <>0 THEN 


151CI 






; RAISE FDIR TO 


SIGNAL AN INTERUPT TO THE 68K 


151Ci 




, 








ISlCl 






{ 






ISlCl 






i REGISTERS 






ISlCl 






; IN 






ISlCi 






A « 


ANY VALUE; 




ISlCl 






X « 


ANY VALUE; 




ISlCl 






Y « 


ANY VALUE; 




ISlCl 






, OUT 






ISlCl 






A « 


DESTROYED; 




iSlCl 






X » 


UNCHANGED; 




ISlCt 






; Y . 


UNCHANGED; 




ISlCi 






; 






ISlCl 






• ♦♦ 






PACE 


- 40 LISA FILE: 1 


uOOP.TEXT Sony 


DRIVER FOR LISA 




ISlCl 






.PAGE 






iSlCi 












ISlCi 


ISlC 1 


JPDINT .ECU 


♦ 


; ENTRY POINT FOR UPDINT 


ISlCi 












ISlCi 






; 1ST. 7 :« 1ST. 


6 OR 1ST. 5 OR 1ST. 


4; 


ISlCl 












ISlCi 


AS 


2F 


LDA 


1ST 




151EI 


29 


70 


AND 


•070 




15201 


FO** 


BCO 


UPDINT2 


SKIP IF NONE IS ON 


15221 


09 


80 


ORA 


•080 ; 


SET BIT 7 IF ANY bit IS ON 


15241 


85 


2F 


STA 


1ST J 


AND PUT BACK INTO 1ST 


15261 












1526} 






J IF (IST.7 A 


NO IMSK. 7) THEN 




15261 






; FDIR :« H 


IGH 




lS26t 






; ELSE 






15261 






J FDIR s« L 


OH 




15261 






! RETURN FROM 


UPDINT 




15261 












1520* 


04 










15261 


25 


2C 1 


LIPDINT2 AND 


IMSK 


► NOW TEST AGAINST THE MASK 


15281 


85 


2E 


STA 


OkToGo 


» REMEMBER IF AN INTERUPT IS PENDING 


152AI 


FO' 


*m . 


BEO 


UPDINT3 


, SKIP IF NO INTERUPT PENDING 


152CI 


80 


iro8 


STA 


FDIRH 


; RAISE INTERUPT 


152Ft 


SO 




RTS 






1S2A* 


04 










15301 


80 


IEO8 


LIPDINT3 STA 


FDIRL 


i CLEAR INTERUPT 


1533} 


60 




RTS 






1534} 












15341 













1S34( 

PACE 



1534( 

1534( 

1534{ 

1534i 

15341 

15341 

1534< 

1534t 

1534( 

15341 

1534{ 

1534( 

15341 

1534i 

1534t 

1534) 

1534{ 

15344 

15341 

153AI 

1213* 

153AI 

153/M 

153CI 

153EI 

15401 

15431 

15451 

15481 

154BI 

15401 

15501 

15501 

15511 

15531 

15551 

15571 

15571 

155Ai 

155Ct 

155F| 

15611 

15631 

15651 

15681 

156AI 

15601 

1561 « 

15601 

i56F| 

15721 

15741 

15771 

1577| 

PACE 



41 LISA 



FILE: 



.IfCLUOE CLRTRK 

CLPTRK.TEXT Spny DRIVER FOR LISA 



>o if 



.PACE 



$YNC20 will clcor a track part tally by writing 20 usee 'FF's to 
the disk. SYNC20 will use the values in the **Y*' reg as the number 
of sets of syne nibbles to write to the disk. 

INPUT: 



Y ■ number to write 

A » Addr/Date Mark flag 



-> •« Dots & 1 •« Addr 



1534 

Ff FC F3 CF 3F Ff 

3A15 
153A 

84 29 

85 6E 

A9 rr 

'80 0F08 
AO 05 
B9 3415 
AE 0C08 
lOFB 
80 0008 

88 

10F2 
C6 29 
DOEC 

AE 0C08 
lOFB 
80 0D08 
A5 6E 
00*» 
A5 70 
20 ***« 
A5 71 
4C ♦••• 

OA 

A5 38 
20 *♦♦♦ 
AS 39 
4C ••♦• 



BsTbl 



OUTPUT: 










X 


s 


Destroyed 




Y 


K 


.pp. 




A 


S 


Unknown 


-COUNTER" 


S 


'FF' 



-cqu « ; 5 20usee bytes coded in fallowing 6 bytes 

.byte OFF, OFC, 0F3, OCF, 03F, OFF 



; Entry point 



- 42 LISA 



15771 

PACE - 43 LISA 



15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

15771 

1577| 

15771 

15771 

15771 02Fr 

15771 0300 

15771 0301 

15771 

15771 03FE 

15771 03FF 

15771 

15771 

15771 



FILE: 



FILE: 



SyNC20 


.EOU 


« 




sty 


Counter 




sto 


Tempi 




Ida 


•OFF 




sto 


07H 


805 


Idy 


•05 


S07 


Ido 


BsTbl.y 


810 


ld» 


06L 




bpl 


SIO 




sto 


06H 




dey 






bpl 


$07 




dee 


Counter 




bne 


$05 


S20 


ld» 


06L 




bpl 


$20 




sto 


Q6H 




Ida 


Tempi 




bne 


$50 




Ida 


OotHkl 




Jsr 


NrNibl 




Ida 


DotMk2 




J«P 


NrNibl 


S50 


Ido 


AdrHkl 




J«»- 


NrNibl 




Ido 


AdrMk2 




i«P 


NrNibl 


PRENIB. 


TEXT So 


>ny DRIVEI 



2 

4 
4 
2.3 

4 

2 

2,3 

5 

2.3 

4 

2,3 

4 

3 

2.3 

3 

6 

3 

3 



Chonge from SENSE to NRITE LOAD 
Tronsfcr 6 bytes, sero based 

Sense line cneoded in Bit 7 
No it for Bit 7 to beeome o *1* 



12 

14/6 
9 
12 



12 
14/S 

9 
12 



if ?* then use oddress mark values 
first dato field mark 

second doto field iiork 
RTS to eoller from NrNibl 



first address field aiark 

second address field «ork 
RTS to eoller from NrNibl 



.INCLUDE PRENIB 

PRENIB. TEXT Sony DRIVER FOR LISA 



.PACE 



New PRENIBBLE routine 
This routine will crcote S bytes ( 4 from the 524 byte i/e buffer ond 
one fram the checksum ) and will save them in the zero page for use 
during the writing operation. It is o brute force operation, rcoding 
coeh set of three bytes from obsolutc locot ions (via equates ) and 
will call a reutine that will cambine the tap 2 bits af each into 
one byte that is returned within the 'A* register. 

BUFFERri] «« >AAAAAAAA< 
BUFFER '2' «s >BBB6BBBB< 
BUFFER[3] «« >CCCCCCCC< 
RESULT :« NIBL[OOAABBCC ] 



; — 




1 REGISTERS: 

; ALL «« DESTROYED 


• 


Lacal Equates 


ClBTOl 
C1BT02 
C1BT03 


.EOU 02FF 
. EQU 0300 
.ECU 0301 


C2BT01 
C2BT02 


.EOU 03FE 
.EOU 03FF 




C label Equates 



14 Dee 


S3 


15771 




15771 




15771 




15771 




15771 




15771 




15771 




PACE 


- 44 LISA 


15771 




15771 


1577 


15771 


AC rF02 


157AI 


AE 0003 


15701 


AO 0103 


15801 


20 6711 


15831 


85 SE 


15851 




15851 


AC rE03 


15881 


AE FF03 


158BI 


A9 00 


15801 


20 6711 


15901 


85 5F 


15921 




15921 


A4 61 


15941 


A6 62 


15961 


AS 63 


15981 


20 6711 


159BI 


85 60 


15901 


60 


159CI 




159EI 




159EI 




159EI 




PACE 


- 45 LISA 


159CI 




159CI 




159Ei 




159EI 




159EI 




159Et 




159EI 




159EI 




159EI 




I59q 




159EI 




159EI 




159EI 




159EI 




159Et 




159EI 




159EI 




159EI 




159EI 




159EI 




159Ei 




159EI 




159EI 




159Ei 




159EI 




159EI 




PACE 


' 46 LISA 


159EI 




159EI 




159EI 




159EI 




159EI 




159EI 




159EI 




159EI 




I49r^ 


9E15 


159EI 


1S9E 


159EI 


A4 70 


15A0I 


A2 07 


15A2I 


BS 00 


15A4I 


95 30 


15A6I 


91 7E 


15A8i 


88 


15A91 


CA 


15AAi 


ior6 


15ACI 




15ACI 


84 70 


15AEI 


C8 


15Ar| 


DO** 


15BII 


AO 3r 


15B3t 


84 70 


15B5I 




15B5I 




15BSI 




15B5i 




15Ar» 


04 


15B5i 


C9 81 



t2/SYSP:SY.TEXT 



Pose 019 



CKSUHl 

CKSUH2 

CKSUM3 

CPCKSUM 

CPBYOl 

CPBY02 



FILE: PRENIB.TEXT %on^ DRIVER FOR LISA 



.page 




PRENIB .EQU 


♦ 


LOY 


ClBTOl 


LOX 


CIBT02 


LDA 


C1BT03 


JSR 


FR3T01 


STA 


CPBYOl 


LOY 


C2BT01 


LDX 


C2BT02 


LDA 


too 


JSR 


FR3T01 


STA 


CPBY02 


LOY 


CKSUMl 


LOX 


CKSUH2 


LDA 


CKSUM3 


JSR 


FR3T01 


STA 


CPCKSUM 


RTS 





; Entry point for oil collers 

; Save new cowposite byte 

i Only two bytes In this one 

; Sove new eomposite byte 



; Sove new eoflnposite byte 
; Bock to collcr 



•INCLUDE CHO 
FILE: CMO.TEXT Sony DRIVER FOR LISA 



.PAGE 



CMD 

CMD IS THE COMMAND INTERPRETER; IT LOOKS AT THE I OB COBYTE AND EVALUATES THE 
COMMAND TO BE DONE. If an interrupt is pending, an -Ol" eoamiand will be 
aborted. All eoMmands are eheeked for the volldlty of the ir paraaeters bg 
the -VALIDATE- rautine. 



; REGISTERS 
All 



DESTROYED 



CALLS 



VALIDATE VALIDATES THE PARAMETERS OF THE lOB 

RHTS HANDLES ALL COMMANDS RELATED TO THE DISK 

SEEK Naves head ta Drivc/SideAroek 

CALL Nlll call routine 

CLRIST Clears interrupt status byte (1ST) 

SETIMSK Enables drives far interrupts using Mask byte 

CLRIMSK Disables drives for interrupts using Mask byte 

MAITROH Ma its for partieular GaByte aequenee before Cald Restart 

ESAO Hill only aeeess ROM; loaps forever or until reset 



FIL£: CMD. TEXT Sony DRIVER FOR LISA 



.PAGE 



FOR X:«IOBSIZE DOHNTO DO 

1106. X :« 106, X; 
-A" reg will be left eontaining the GOBYTE 



TRANSFER lOB INTO INTERNAL COPY 



CMD 



CMDl 



.EOU 


* 


Idy 


Cm6» 


LOX 


•lOBSIZE 


LDA 


106. X 


STA 


IIOB.X 


STA 


•SaveL.y 


dey 




DEX 




BPL 


CMDl 


sty 


Cmd* 


iny 




bne 


$32 


Idy 


•CadLeng 


sty 


CaidH 


IF HOB. GOBYTE « 81 THEN 


GOTO RUTS 





; ENTRY POINT FOR CMD 

; Move only the 8 bytes thot ore possed 

; FETCH 

; AND DEPOSIT 

; for posterity 

: COUNT DOHN 

; AND LOOP 



S32 



CMP tRMTSCMD 



; RWTS COMMAND? 



1577| 
15771 
15771 
15771 
15771 
15771 
15771 
PACE 





CKSUMl 




CKSUM2 




CKSUM3 




CPCKSUM 




CPBYOl 




CPBY02 



- 44 LISA 



FILE: PRENIB.TEXT Sony DRIVER FOR LISA 



15771 
15771 
15771 
157AI 
157DI 
15801 
1583i 
15851 
15851 
15881 
158BI 
158DI 
15901 
15921 
15921 
15941 
15961 
15981 
159B1 
lS9Dt 
159EI 
159E) 
159Ei 
1S9EI 
PACE 



1577 
AC FF02 
AE 0003 
AD 0103 
20 6711 
85 5E 

AC FE03 
AE FF03 
AS 00 
20 6711 
85 5F 

A4 61 
A6 62 
A5 63 
20 6711 
85 60 
60 



45 LISA 



• FBgC 

PRENIB .EOU 


♦ 


LDY 


ClBTOl 


LDX 


CIBT02 


LDA 


C1BT03 


JSR 


FR3T01 


STA 


CPBYOl 


LDY 


C2BT01 


LDX 


C2BT02 


LDA 


•00 


JSR 


FR3T01 


STA 


CPBY02 


LDY 


CKSUMl 


LDX 


CKSUM2 


LDA 


CKSUM3 


JSR 


FR3T01 


STA 


CPCKSUM 


RTS 





; Entry point for oil eollers 

; Sove new eoMposite byte 

; Only two bytes in this one 

; Sove new eomposite byte 



; Sove new eenposite byte 
i Boek to eoller 



FILE: 



.INCLUDE CHD 

CMD.TEXT Sony DRIVER FOR LISA 



159EI 
159EI 
159EI 
159EI 
159EI 
159Ei 
159EI 
159EI 
159EI 
159EI 
159EI 
159Et 
159EI 
159Et 
159EI 
159EI 
159Ei 
159Ei 
159EI 
159Et 
159EI 
159Ei 
159EI 
159EI 
1S9EI 
1S9EI 
PAGE 



.PACE 



CMD 

CMO IS THE COMMAND INTERPRETER; IT LOOKS AT THE lOB COBYTE AND EVALUATES THE 
COMMAND TO BE DONE. If on interrupt is pending, on -81" eoiiwond will be 
oberted. All eoMmonds ore cheeked for the voltdity of their poroweters by 
the -VALIDATE" routine. 



REGISTERS 

All «« 



DESTROYED 



CALLS 



VALIDATE 

RMTS 

SEEK 

CALL 

CLRIST 

SETIMSK 

CLRIMSK 

MAITROM 

eSAD 



VALIDATES THE PARAMETERS OF THE 106 

HANDLES ALL COMMANDS RELATED TO THE DISK 

Movies heod to Drive/Slde/Trock 

Hill coll routine 

Cleors interrupt stotus byte (1ST) 

Cnoblcs drives for interrupts using nosk byte 

Disobles drives for interrupts using aiosk byte 

Ho its for port ieu lor CoByte sequence before Cold Rcstort 

Hill only access ROM; loops forever or until reset 



- 46 LISA 



FILE: CMD.TEXT Sony DRIVER FOR LISA 



159EI 

159Ei 

159EI 

159Ei 

159Et 

159Ei 

159Ei 

159EI 

149F* 

159E) 

159EI 

ISAOi 

lSA2i 

15A4I 

15A6i 

15A8i 

15A9i 

ISAAt 

ISACt 

15ACI 

15AEI 

ISAFi 

15611 

15631 

156SI 

15651 

isest 
isesi 

15AF* 
15651 



.PAGE 



9E15 
159E 
A4 70 

A2 07 
65 00 
95 30 
91 7E 
88 
CA 
lOFS 

84 7D 
C8 

D0*» 
AO 3F 
84 7D 



04 
C9 81 



FOR X:«I0BSIZE DOMNTO DO 

IIOB.X :« 106, X; 
-A*' reg will be left eontoining the COBYTE 



TRANSFER I 06 INTO INTERNAL COPY 



CMO .EOU 


« 


Ida 


CMdx 


LDX 


•lOBSIZE 


CMDl LDA 


106. X 


STA 


II06,X 


STA 


•SaveL, y 


dey 




DEX 




BPL 


CMDl 


sty 


Ciiidx 


iny 




bne 


S32 


Idy 


•CmdLeng 


sty 


C«d» 


; IF IIOB.GOBYTE * 81 THEN 


GOTO RWTS 





; ENTRY POINT FOR CMD 

; Move only the 8 bytes thot ore possed 

; FETCH 

; AND DEPOSIT 

; for posterity 

: COUNT DOWN 

; AND LOOP 



S32 



CMP SRHTSCMO 



: RWTS COMMAND? 



15B7| ro^» 

1SB9I -- - - 

15691 

1SB9I 

iSB9t 

ISB91 

XSB9I 

15B9I 

15B9I 

15B9I 

1SB9I 

15691 

15691 C9 60 

15BBI ro»* 

15601 

15601 38 

156CI £9 83 

15C0I 90 ♦♦ 

15C2I C9 08 

15C4I 90*^ 

15C0* 04 

15C6i A9 01 

15C8I 00»^ 

15CAt 

15C4* 04 

PACE - 47 LISA 



KQ nWTS 

S CLSC 

; BEGIN 

$ IF NOT (IIOe.COeYTC IN 

BEGIN 
; I0e.G06YTE :» 001; 

5 CARRY :• CLEAR; 

; RETURN 

CNO; 
; VALIDATE; 



CHP 
beq 



•NULLCMD 
CmdNeErr 



SEC 

S6C •LMCHONO 

BCC CHD3 

CHP •CHDNUM6«1 

BCC CHD5 



CH03 



LDA 

BNE 



VGERRCHO 
CMDCLNUP 



15CAI 

15C6I 

15CD1 

ISOOl 

15031 

150SI 

15071 

15071 

15071 

15071 

15071 

15071 

15071 

1507 

15071 

15071 

15071 

15071 

15071 

15071 

1508 

15091 

150C 

150EI 

15E0I 

15E2I 

1S8B 

15E4I 

15E4I 

ISESl 

1503 

15C8 

15E6I 

15E8I 

15EAI 

15E2* 

150E* 

ISECl 

ISEDi 

ISEOi 

15EDI 

ISEDi 

ISEDt 

150A* 

ISEDi 

ISFOl 

15F1I 

15F4I 

15F5I 

15F6I 

15F6I 

15Fei 

15F6I 

15F2* 

15EE* 

PAGE 



85 2A 

BO 3211 
20 ♦»♦♦ 
BO** 
A5 2A 



OA 

AA 

20 ♦•*• 

A5 2A 

ro*» 

C9 01 
F0*» 
27 
15E4 
A9 00 

11 
IC 

85 08 
A9 00 
85 00 
08 
OC 
60 



E015 
BO *•♦♦ 
48 

BO **** 

48 

60 



FILE: CHD.TEXT Sony DRIVER FOR LISA 



CMOS TAX 

STA NOLOINX 

LDA TESTCOB. X 

JSR VALIDATE 

BCS CMDCLNUP 

LDA NOLOINX 

IF VALID THEN 
CASE COBYTE OF 

63: SEEK 

64: CALL; 

65: CLRIST; 

66: SETIHSK; . 

67: CLRIHSK; 

68: WAXTROH 

69: ESAO 
END; (CASE) 
; END; 

ASL A 

TAX 

JSR CM06 

LDA HOLDINX 

BEO CMORTS 

CMP eOl 

BEQ CMORTS 

CudNeErr . equ * 

LDA 90 



CMDCLNUP STA 
LDA 
STA 



lOB^ERRSTAT 

•00 

lOB^GOBYTE 



CMORTS 



CM06 



RTS 



; Yes & let RTS frew RHTS return to LOOP 



[VALID HOB. COBYTE]) THEN 

INVALLIO COMAND 
COMMAND COMPLETED 



Volidotc paromcters 
; If null eomnand then exit 



SUBTRACT LOMEST COMMAND NUMBER 
COOPS!, NOT A VALID COBYTE COMMAND 
NUMBER OF COMMANDS IN RANGE 
SKIP IF VALID COBYTE COMMAND 

; ELSE SIGNAL INVALID COBYTE 
; Cleonup & exit 



INDEX TO COMMAND ALREADY IN A-REG! 

SAVE INDEX FOR THE MOMENT 

FETCH PARSING FOR COBYTE COMMANDS 

AND VALIDATE IT 

NOT A VALID COMMAND 

GET BACK THE INDEX TO THE COMMAND 



Seek to traek 

CALL 6504 ADDRESS 

CLEAR 1ST (INTERUPT STATUS) BITS 

SET (ENABLE) BITS IN IMSK (INTERUPT MASK) 

CLEAR (DISABLE) BITS IN IMSK (INTERUPT MASK) 

MAIT IN ROM (USED BY 66K RAM TEST ) 

Jump to self in ROM and ncycr return 



to Index into word table 
Use eoMnand number as Index 

Feteh the index ( 0. .6 ) 

Skip if eammand was a "SEEK** eeiMiand 

Alse skip if it was a **CALL** eoMiand 



; Signal na error 

; Common error reporting code for CNO & RMTS 

; Allow host to process error ( If any ) 

; AND EXIT 



CMO JUMP TABLE DISPATCHER 
CMDJMP*l,X ; 



LDA 

PHA 

LDA CMOJMP, X 

PHA 

RTS 



; FETCH THE HIGH BYTE 
5 PUT IT ONTO THE STACK 
: THEN THE LOW BYTE 



; AND JUMP INDIRECT TOP OF STACK 
TABLES FOR CMO DISPATCHER 



F615 
F715 
' 48 LISA 



FILE: CHD.TEXT Sony DRIVER FOR LISA 



15F6I ♦♦♦♦ •♦•♦ n 
ISFEi ♦♦♦♦ 

leooi **♦♦ •♦♦♦ 

16041 

PACE - 49 LISA 



16041 
16041 
1804i 



CMOJMP 



.Word Scck-1, CALL-1, CLRIST-1, SETlMSK-l. CLRIMSK-1 
.Herd HaitRom-1, ESAD-1 
FILE: CHD.TEXT Sony DRIVER FOR LISA 

.PACE 



14 Dee 


•3 




U04« 






160 4« 






16041 






1604< 






16041 






16041 






16041 






16041 






16041 






16041 






16041 






16041 






16041 






16041 






1604) 






16041 






1604« 






16041 






16041 






1604i 






16041 






16041 






16041 






16041 






16041 






16041 






16041 






16041 






16041 






PACE 


- SO LISA 


1604) 






1604( 






15B7* 


4B 




1604i 


1604 


1604i 






16041 






16041 






16041 






16041 






1604) 






16041 






1604i 






16041 






16041 






16041 






16041 






16041 






16041 






16041 






16041 






1604) 






1604) 






1604) 






1604) 






1604) 






1604) 






1604) 


AS 


2E 


1606) 


F0»* 


1608) 


A9 


09 


160A1 


20 


E61S 


1600) 


ro** 


160ri 






1606* 


07 




160F) 


A6 


31 


16X1) 


CO 


OA 


1613) 


90** 


1615) 


A9 


01 


16171 


OOFl 


1619) 






1613* 


04 




1619) 


BO 


2811 


161C) 


20 


^♦♦* 


161F) 


20 


E615 


1622) 


BO** 


1624) 






1624) 


20 


»♦♦♦ 


1627) 


AS 


31 


1629) 


DA 




162A1 


AA 




162B) 


20 


*♦♦♦ 


162EI 






162q 


80 


1808 


1631) 


80 


1008 


1634) 


90** 


PACE 


- 51 LISA 


1636) 


85 


08 


1638) 






1622* 


14 




1600* 


29 




1638) 


1638 


1638) 


A4 


70 


163A) 


CO 


3F 



42/SY$P:St.TEXT 



rage U2. 



UMTS 

RMTS (READ WRITE TRACK SECTOR) IS THE ROUTINE THAT PARSES ANO DISPATCHES 
ALL COHMANOS THAT AFFECT THE DISK ( caecpt SEEK ). If no interrupts ere 
pending ond oil porometers ore vol id, then the eiewerg will be disabled to 
eeeess by the 68K ond the proper routine will be called. 



REGISTERS 
IN 

A « 

OUT 



IIOB«COBYTE 



DESTROYED 



CALLS 



VALIDATE 

INIT 

READ 

MRITE 

UNCLAHP 

FORMAT 

VERIFY 

rORMTRAK 

VERTRACK 

REAOBF 

WRITEBF 

CLPENTY 



VALIDATES PARAMETERS FOR THE CMD, DRIVEN BY TESTTBL 

SET UP GLOBAL CONDITIONS USED BY MOST COMMANDS 

Roods Or ive/SideAroek/Seetor 

Mrites Or ive/Side/Troek/Scetor 

Une loHips disk in Drive 

ForMots disk in Drive storting ot Side/Troek 

Reads disk in Drive storting ot SidcAroek 

Formots single Troek on disk in Drive 

Roods single Troek on disk in Drive 

Rcods Dr ive/S ide/Troek/Seetor w/o ehecksum verify 

Hritcs Dr ive/S ideAroek/Seetor w/o eheeksum ereotion 

Hill eloiip disk in Drive 



FILE: CMD. TEXT Sony DRIVER FOR LISA 



.PAGE 



RHTS 



.EOU 



ENTRY POINT FOR RHTS 



VALIDATE 1106. COMMAND; 
IF NOT VALID THEN 
BEGIN 

lOB.GOBYTE :* COMMAND ERROR 
CARRY :« CLEAR 
RETURN FROM RMTS 
END 

VALIDATE; 

IF NOT VALID THEN RETURN FROM RMTS 
ELSE 
BEGIN 

LOCK MEMORY; 
INIT; 

Coll eonmand 
1ST :« R/M COMMAND DONE; 
UPDINT 
END 
END; 
RETURN FROM RMTS 



NOTAOK 



AOK 



RMTS4 



RHTS40 



LOA 


OKTOGO 


BEQ 


AOK 


tOA 


•GERRINTR 


JSR 


CHOCLNUP 


BEO 


RM400 


LDX 


IIOB<OMMAND 


CPX 


•MAXCMD^l 


BCC 


RMTS4 


LOA 


8GERRCMD 


BNE 


NOTAOK 


LOA 


TESTTBL, X 


JSR 


VALIDATE 


JSR 


CHOCLNUP 


BCS 


RH400 


JSR 


INIT 


LOA 


IIOB^COMMANO 


ASL 


A 


TAX 




JSR 


RMTS7 



FILE: CMD. TEXT 



rw400 



ST A DISL 

sta BaotH 

BCC RMTSS 

Sony DRIVER FOR LISA 

STA lOB^ERRSTAT 



.cqu * 
Idy CadX 
cpy •C«dLeng 



; If >< then interrupt is pending 

S Pending interrupt error 

S Report error 

; Send on interrupt book to host 



FETCH THE COHHAND NUHBER 

COMPARE AGAINST MAXIMUM COMMAND 

SKIP IF VALID 

SIGNAL A COMMAND ERROR 

Loco 1 error en i t hond ler 



Fetch bit aiosk of parameters te cheek 
VALIDATE RETURNS CARRY CLEAR IF OK 
Mill clear G06YTE end return error code 
If error then return FDIRH 

SET UP GLOBAL CONDITIONS USED BY MOST COMMANDS 

Leod with coiuitand byte 

Mult by twa ta address word orray 

^ut into index register 

PUSH RETURN AORESS ON STACK AND EXECUTE CMD 

UNLOCK MEMORY 

tell 68K thot Memory is rcnabled 

If earry clear then no error 



If errar then must repart this ta hast 



and save far paster ity 
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rage Q22 



bnc 
bnc 


SIC 

•6 

S20 


tya 
etc 
adc 
toy 


•7 


Ido 

sto 


lOB^ErrStot 
•SavcL, y 


LOA 
ORA 
STA 
JMP 


•040 
1ST 
1ST 
UPDINT 



leaci D0*« 

163C1 AG 06 

16401 00*» 

X63C* 04 

16421 98 SIO 

16431 18 

16441 69 07 

16461 A8 

1640* 05 

16471 AS 08 S20 

16491 91 7E 

164B< 

1634^ 15 

164Bt A9 40 RHTS5 

164DI 05 2F 

164ri 85 2F 

16511 4C 1C15 

1654( 

16541 

16541 ; 

16541 ; 

16541 

162C« 5416 

16541 BD ^♦♦^ RNTS7 

16571 48 

16581 BO *♦♦♦ 

16581 48 

165CI 80 1C08 

165F| 80 1908 

16621 60 

16631 

16631 ; — 

16631 S 

16631 ; flMTS DISPATCHER JUMP TABLE 

16631 

1659<» 6316 

1655^ 6416 

16631 »♦•♦ •♦♦♦ A713 RWTSJMP 

16691 ♦*♦♦ ♦•♦♦ ♦♦♦• ••♦♦ 

16711 *♦•♦ ••»• •♦•♦ 

16771 

PAGE - 52 LISA FILE: CMD.TEXT 



; point ot 'speed* byte 



M8C Drive 80 

SET BIT IN INTERUPT STATUS 



RWTS COHMANO DISPATCHER 



LDA 
PHA 
LDA 
PHA 
STA 
STA 
RTS 



RWTSJHP*1,X 

RMTSJHP, X 

BoetL 
DISH 



FETCH THE HIGH BYTE OF TIC ROUTINE 

PUSH IT 

FETCH THE LOW BYTE TO THE ROUTINE 

PUSH IT TO THE STACK 

tell 68K that Menery is disabled 

Disable access at last passible Manent 

POP AORESS AND JUHP TO IT 



.Hard READ-1, i4RITE-l, UNCLAHP-1 

.Ward FORHAT-1, VERIFY-1, FORMTRAK-1, VCRTRACK-1 

,Uord READBF-1, MRITEBF-l. CLPENTY-1 



Sany DRIVER FOR LISA 



16771 
16771 
16771 
16771 
16771 
16771 
1677i 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
16771 
1677| 
16771 
16771 
1677| 
16771 
PACE - 53 LISA 



16771 
16771 

1610* 7716 
1501 • 7716 
16771 1677 
16771 85 6E 
16791 F0*» 
167BI A2 OE 
167Dt 46 6E 
167F| 90 •♦ 



.PACE 



VALIDATE 

i VALIDATES THE lOB PARAHETERS PASSED FROM THE 68K DEPENDING ON THE 
; BIT PATTERN IN THE A-REC. 
t 
i 

S REGISTERS 
IN 

A » PARAHETERS IN THE 106 TO BE TESTED: 

76543210 



I I 



I 



I I I i 



I 



I 



OUT 



ANY VALUE 
ANY VALUE 

DESTROYED 
DESTROYED 
DESTROYED 



Drive & a clamped disk 

Side • 

Seetar • 

Track • 

Hask 

Canf ir«at ian byte 

Write Pratectien 

Farmat /Verify parameters 



CALLS 



ENBLTEST 

TRKCLSS 

READWP 



Test far drive being enabled far Interrupts 
Returns m/ "Y" « class af Track 
Tests far 



a write pratectcd disk 



FILE: CHD.TEXT Sany DRIVER FOR LISA 



.PAGE 



VALIDATE .ECU « 

STA TEMPI 

BEQ VLDNOTST 

LJDK •Ot 

VALIDl LSR TEMPI 

BCC VALID20 



ENTRY POINT FOR VALIDATE 

SAVE "A** HERE DURING VALIDATION 

If xera then na testing required 

TEST BITS 7-0, use 14. te index word array 

SHIFT AND TEST THE CARRY BIT 

Bit nat set; skip this test 
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r*9e 023 



16611 

ie83i 
isest 

16871 
168AI 
168BI 

168CI 
168CI 
168CI 
168CI 
167F* 

i68ei 

168F| 

16901 

1679* 

16921 

16941 

16951 

16961 

16961 

16961 

16961 

16971 

16981 

16981 

1698i 

16981 

16981 

16981 

169Ai 

169CI 

169EI 

16A0I 

169C^ 

16A2I 

16A4| 

16A6I 

16A0* 

16A6I 

16A9i 

16ABI 

16ADt 

16AF| 

16Ar| 

PACE • 



06 6r 
eo ♦♦♦♦ 

48 

BO ^**^ 

46 

60 



A6 6r 

CD 

CA 

CA 

lOEB 

17 

A9 00 

18 

60 



38 

60 



AS 32 
C9 80 
DO** 
AS 20 

DO** 
04 
A9 07 

Doro 

04 

20 *♦** 

BOEl 

A9 08 

O0E7 



S4 LISA 



STX 


TEMP2 


LDA 


VALJMP^l.X 


PHA 




LDA 


VALJMP. X 


PHA 




RTS 





; THIS IS THE RETURN POINT 
VALID2 LDX TEHP2 



VALID20 



DEX 

BPL VALIDl 



} Save **X** eeunter voluc 
RICK UP THE HICH BYTE 
RUT IT ON THE STACK 
RICK UP THE LOW BYTE 
RUT IT TOO ON THE STACK 
JHP TO THE TEST 



AFTER A SUCCESSFUL TEST 

; Restore *'X** counter value 

; Loop eount - 2 « next test address index 

; Mill loop until index is negative 



1 



VLONOTST LDA 
CLC 
RTS 



•0 



; Signal no errors 



; THIS IS THE RETURN POINT AFTER A FAILED TEST 

VALID3 SEC ; SOHETHINC MENT NRONG 

RTS 

; — 

I TEST DRIVE NUHBER. IF THE DRIVE IS ENABLED AND FOR A CLAMPED DISK 

; Must use 'lower* drive volue 

; YES, THERE IS A CLAHPED DISK 

; No disk in drive error 
; ALMAYS TAKEN 



VALIDDR 


Ida 


IIob«Drive 




CHIP 


•80 




bnc 


S28 




LDA 


Clomped 




BNE 


«57 


S28 


LDA 


•CERRCLH 




BNE 


VALID3 



S57 JSR ENBLTEST 

BCS VALID2 

LDA ffCERRENA 

BNE VALID3 



FILE: CHD.TEXT Sony DRIVER FOR LISA 



TEST IF THE DRIVE IS ENABLED 
YES. THE DRIVE IS ENABLED 
DRIVE NOT ENABLED 
ALHAYS TAKEN 



16AF| 
16AFI 
16AFi 
16AFt 
16Blt 
16B3I 
16B5I 
16B7I 
16B9I 
16BBI 
16B0t 
16BFI 
16C1I 
16C1I 
16C1I 
16C11 
16C1I 
16C1I 
16C4| 
16C6I 
16C9I 
16CBI 
16C0I 
16CFI 
16CFI 
16CF| 
16CF| 
16CF| 
16CFI 
16011 
16031 
16DSi 
16071 
16091 
16091 
16091 
16091 
16091 
16091 
160B^ 
16D0t 
160F| 
16E1I 
16E3i 
I6E3t 
16E3t 
16E3I 
16E3I 
16E3I 



TEST SIDE NUHBER 



A9 03 
A4 33 
F0D7 
CO 01 
OODD 
AO 02 
C4 OA 
D0D7 
FOCB 



20 5511 
AS 34 
D9 4611 
90C1 
A9 04 
D0C7 



AS 35 
C9 50 
90B7 
A9 05 
DOBD 



A5 31 
29 77 
FOAD 
A9 06 
D0B3 



E6 07 



VALIDSI LDA 


•GERRSID 


Idu 


IIOB^SIDE 


beq 


Va 1 id2 


epy 


•01 


bne 


yoiid3 


Idy 


•02 


epy 


lOB^NoSidc 


bnc 


Va 1 id3 


beq 


VaUd2 



TEST SECTOR NUMBER 



VALIDSE 



JSR 


TRKCLSS 


LDA 


IIOB^SECTOR 


CMP 


SECPRTRK, Y 


BCC 


VALI02 


LDA 


•CERRSEC 


BNE 


VALID3 



TEST TRACK NUMBER 

VALIDTR LDA IIOB*TRACK 

CHP •MAXTRACK*! 

BCC VALI02 

LDA »GERRTRK 

BNE VALID3 



VALIDHA 



TEST MASK 

LDA IIOB^MASK 

AND •077 

BEQ VALID2 

LDA •GERRMSK 

BNE VALID3 



TEST CONFIRMATION BYTE 
VALIDCF INC IOB*FMTCNFM 



; assume error 

; side is always good 

S now see if side 1 

; not side 1 cither 

; will range from to 2 

; not a dual sided drive 



*- must be 2 far dual sided 



Find traek elass 

New sector number 

Compare ogainst max sector per trock elass 

OK. WITHIN LIMITS 

OOPS, TOO MANY 

ALMAYS TAKEN 



FETCH THE TRACK 

AND TEST AGAINST THE MAXIMUM TRACK NUMBER 

OK. NOTHING WRONG SO FAR 

TRACK NUMBER IS TO HIGH, SIGNAL ERROR 

ALHAYS TAKEN 



ME ONLY ALLOW SET/CLEAR OF BITS 7 AND 3 
SO TEST THE REST (0.1.2,4.5 & 6 ) FOR 
OK, NO FUNNY BITS 
ELSE ME HAVE AN ERROR 
ALWAYS TAKEN 



If earrect byte, this will inc to xero 
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Page 024 



ISCSi 


roAS 








BEO VALID2 ; Ok, byte vos • fT 


18E7I 


A9 OA 








LDA 9CERRFMPR ; Nreng byte 


16C9I 


00A6 








BNE VALID3 ; ALWAYS TAKEN 


ISCBt 












leCBi 






1 


• . 




16CBI 






5 






PACE 


- 55 


LISA 


FILE: CHO.TEXT Sony DRIVER FOR LISA 


16EBI 






J 




TEST FOR WRITE PROTECTION 


ISEBi 












IGEBi 












16EBi 


20 0213 


VALIDWP 


JSR READWP ; Test for wr itc-proteeted disk 


16EE1 


B09C 








BCS VAL1D2 I Corry « I ««> not protected 


leroi 


A9 14 








LDA PSERRPROT ; Write protection error eonstont 


I6r2i 


00 A2 








BNE VALID3 ; ALWAYS TAKEN 


I6r4i 












16F4| 






J 


-- 




16F4I 






i 






I6r4i 

16F4I 
16F4I 






i 




TEST FOR forwot & verify poroaieters 












16F4I 


A5 35 




VALIDFV 


LDA IIOB*TRACK 


16F6I 


05 33 








ORA IIOB'^SIDE ; MUST WAVE TRK/SIDE « 


16F8I 


r092 








BEQ Volid2 ; PARMS ARE OK-CONTINUE 


16FA1 


A9 OA 








LDA PCERRFMPR ; TRACK/SIDEoO-ERROR 


16FCI 


D098 








BNE VALID3 ; ALWAYS TAKEN 


16FEI 












16FEI 








— 




16FEI 












16FEI 








VALIDATION JUMP TABLE 


16FEI 










Toble Must be in this order — Drive Must be validated and selected 


16FEI 
16FEI 
1688* 










prior to cheeking for write protection. 


rE16 










1684* 


FF16 










16FEI 


r316 CA16 E216 


D816 \ 


/ALJHP 


.Word VALIDFV-l, VALIDWP-1, VALIDCF-1, VALIDMA-1. VALIDTR-1 


17061 


CE16 










17081 


C016 AE16 9716 






.Word VALIDSE-1, VALIDSI-1, VALIDDR-1 


170EI 












170EI 












PACE 


- 56 


LISA 


FILE: CMD.TCXT Sony DRIVER FOR LISA 


170EI 








PACE 




170Et 








♦♦ 




170EI 












170EI 










ENBLTEST 


170EI 












170EI 








TEST 


IMSK AGAINST X-REC TO FIND OUT IF THE DRIVE INDEXED BY X IS ENABLED. 


170EI 












170EI 




• 




-- 




170EI 












170E1 








, REGISTERS 


170EI 








IN 




170EI 










A « ANY VALUE 


170EI 










X « «0, DRIVE 0; «2. DRIVE 80 


170EI 










Y « ANY VALUE 


170EI 








OUT 




170EI 










A « DESTROYED 


170EI 










X « UNCHANGED 


170EI 










Y « UNCHANGED 


170EI 










CARRY « «CLEAR, DRIVE NOT ENABLED; «SET DRIVE ENABLED 


170EI 












170EI 








-- 




170E| 












16 A7* 


0E17 










1509* 


0E17 










170EI 


170E 




1 


ENBLTEST .ECU ♦ ; ENTRY POINT FOR ENBLTEST 


170EI 












170EI 


A9 80 








LDA POBO ; DRIVE 80 


17101 


25 20 




i 


CNBLTSTl AND IMSK 5 TEST AGAINST INTERUPT MASK 


17121 


69 F8 








ADC BOFB ; CAUSE OVERFLOW TO CARRY IF 008 OR LARGER 


17141 


60 








RTS 


17151 












PACE 


- 57 


LISA 


FILE: 1 


:MD.TEXT Sony DRIVER FOR LISA 


17151 








.PACE 




17151 








?♦♦ 




17151 








{ 




17151 








i 


INIT 


17151 












1715t 








5 SET UP GLOBAL CONDITIONS USED BY MOST RWTS COMMANDS 


17151 












17151 








\ REGISTERS 


17151 








; IN 




17151 










A « ANY VALUE 


17151 










X « ANY VALUE 


17151 










Y « ANY VALUE 


17151 








1 OUT 




17151 










A « DESTROYED 


17151 










X « DESTROYED 


17151 










Y « UNCHANGED 


17151 












17151 








• ♦♦ 
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AZySYSP: SY. TtXT 



r«gc u^9 



insi 

17X51 

17151 

17151 

17151 

ie25» 

17151 

17151 

17171 

17191 

171BI 

171DI 

171FI 

17211 

17231 

17251 

17271 

1723* 

17291 

172BI 

17201 

172FI 

17311 

17331 

17351 

17361 

17381 

17391 

PACE - 



1517 
1715 
A5 19 
85 26 
A5 lA 
85 27 
A5 17 
85 42 
A5 33 

A9 20 
85 33 
04 

A9 00 
85 40 
85 41 
85 7B 
A2 07 
95 48 
CA 
lOFB 
60 

58 LISA 



; HETRYCNT :• IIAXRCTRY; 
t RCCALCNT :• MAXRECAL; 
; ERROR COUNTEHS :« 0; 

INIT 



S09 



S12 



.EQU 


# 


LDA 


MAXRETRY 


STA 


RETRYCNT 


LOA 


HAXRECAL 


STA 


RECALCWT 


LDA 


MAXODLY 


STA 


MTHIH 


Ido 


IIOB^Slde 


beq 


S09 


Ida 


•20 


sta 


IIOB^Side 


LDA 


•00 


STA 


MTLOH 


STA 


MTHID 


STA 


HtyFlg 


LDX 


•ERRLEN 


STA 


STSLP. X 


DEX 




BPL 


S12 


RTS 





; ENTRY POINT FOR INIT 



; Hoter off delay tine 



; if side 1 then set aniy bit 5 



reset 3 byte eeunter 

Mhen « 2 then abort read er write eperation 
NuMber af error eaunters 
Zero the eaunter 

Zera based IndoM 



17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

17391 

15F8* 3817 

17391 1739 

17391 20 •••♦ 

173CI 6C 3100 

173FI 

PACE - 59 LISA 



173FI 

173FI 

173Ft 

173FI 

173FI 

173FI 

173FI 

173FI 

173F| 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

173FI 

ISFA^ 3E17 

173FI 173F 

173FI A5 31 

17411 49 rf 

17431 25 2F 

17451 85 2F 

17471 4C 1C15 



FILE: CHD.TEXT Sany DRIVER FOR LISA 



.PAGE 



CALL 

CALLS A ROUTINE IN THE ROM OR RAM AS SPECIFIED BY THE ADDRESS IN ADRL. ADRH 
THIS IS MOSTLY USED BY DIAGNOSTICS. YOU CAN ALWAYS RETURN FROM THE CALL BY 
EXECUTING A RTS. 



REGISTERS 




IN 




A s 


ANY VALUE 


X « 


ANY VALUE 


Y « 


ANY VALUE 


OUT 




A « 


DESTROYED 


X « 


DESTROYED 


Y « 


DESTROYED 



FIRST MAKE SURE THAT THE MOTORS ARE OFF 
THEN JUMP OFF INTO THE BLUE. . . 



CALL . EQU V 

JSR rRKCLRO 
JMP BIIOB^ADRL 

FILE: CMD.TEXT Sany DRIVER FOR LISA 



.PAGE 



ENTRY POINT FOR CALL 

Park heads, turn aff natars & elear GOBYTE 

JUMP INDIRECT ON THE ADDRESS IN THE 1106 



CLRIST 

CLEARS SELECTED BITS IN THE IST(INTERUPT STATUS) AND THEN CHECKS IF FDIR 
SHOULD STILL BE HIGH. MASK SHOULD CONTAIN A 1 FOR THE BITS IN 1ST TO 
BE SWITCHED OFF. 



REGISTERS 




IN 




A • 


ANY VALUE 


X « 


ANY VALUE 


Y « 


ANY VALUE 


OUT 




A * 


DESTROYED 


X « 


UNCHANGED 


Y « 


UNCHANGED 



CALLS 



UPDINT 



UPDATES FDIR DEPENDING ON 1ST 



CLRIST 


.EOU 


« 




LDA 


XIOB^MASK 




EOR 


•OFF 




AND 


XST 




STA 


XST 


CLREXIT 


JMP 


UPDINT 



ENTRY POINT FOR CLRIST 

FETCH THE MASK 

ONES COHPLEMtNT 

AND WITH 1ST TO SWITCH OFF SELECTED BITS 

SAVE NEW 1ST 

CALCULATE THE NEW STATUS OF FDIR 



PACC - SO LISA 



I74AI 

174AI 

174AI 

174AI 

174A1 

174A| 

174AI 

X74AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

174AI 

I74AI 

174AI 

174AI 

ISFC* 4917 

174AI 



riLE: CHO.TCrr Sony DRIVER TOR USA 



.PACE 



;♦♦ 



SETXMSK 



; SETS (ENABLES) THE INTERUPT MASK FOR DRIVE AND DRIVE 60 AND COMPUTES THE 
; NEH STATUS OF FDIR. 



; REGISTERS 



IN 



OUT 



A « 

X » 

Y « 

A « 

X • 

Y ■ 



CALLS 



UPDINT 



ANY VALUE 
ANY VALUE 
ANY VALUE 

DESTROYED 
UNCHANGED 
UNCHANGED 



UPDATE FDIR STATUS 



174A1 
174CI 
X74EI 
17501 
17531 
PAGE 



174A 
A5 31 
05 2C 
65 2C 

4C iClS 

- 61 LISA 



IMSK :« $88 

CALL UPDINT — MILL RETURN FROM UPDINT TO CALLER 



; ENTRY POINT FOR SETIMSK 



.EOU 


♦ 


LDA 


XIob^Mask 


oro 


Insk 


STA 


IMSK 


JMP 


UPDINT 



: SAVE NEH IMSK VALUE 

; CALCULATE THE NEM STATUS OF FDIR 



FILE: CMO.TEXT Sony DRIVER FOR LISA 



17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17S3I 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

17531 

ISFE* 5217 

17531 1753 



.PAGE 



CLRIMSK 



CLEARS (DISABLES) THE IMSK (INTERUPT MASK) SELECTIVLY. COMPUTES NEH STATUS 
OF THE FDIR. 



REGISTERS 
IN 

A « 
X « 
Y » 



OUT 



A « 

X « 
Y « 



CALLS 



UPDINT 



ANY VALUE 
ANY VALUE 
ANY VALUE 

DESTROYED 
UNCHANGED 
UNCHANGED 



UPDATE FDIR 



CALL UPDINT — HILL RETURN FROM UPOINT TO CALLER 



A5 31 

49 rr 

25 2C 
65 2C 
4C 1C15 



17531 
17551 
17571 
17591 
175BI 
175EI 
175EI 
175EI 
PACE - 62 LISA 



175EI 
175EI 
175EI 
175EI 
175EI 
175EI 
175EI 
175EI 
175EI 
175EI 
175EI 
175EI 
PAGE - 63 LISA 



175EI 
175EI 
175EI 
15F6* 5D17 



CLRIMSK .EQU « 

LDA Ileb^Mask 

cor »OFF 

ond IiRsk 

STA IMSK 

JMP UPDINT 



.INCLUDE SEEK 
FILE: SEEK. TEXT Sony DRIVER FOR LISA 



; ENTRY POINT FOR CLRIMSK 



SAVE NEH IMSK VALUE 

CALCULATE THE NEH STATUS OF FDIR 



.PACE 



REGISTERS 
OUT 

ALL « 

CALLS 



SEEK 



DESTROYED 



FILE: SEEK. TEXT Sony DRIVER FOR LISA 
.PACE 



175£| 


175E 


X7SEI 


20 1517 


17611 


20 E615 


17$4| 




17641 


1764 


17641 


A2 00 


17661 


86 56 


17681 


86 57 


176AI 


86 59 


176CI 


CA 


17601 


86 OC 


176FI 




176FI 


A5 21 


17711 


00 ♦♦ 


17731 


C6 57 


17751 


20 3113 


17781 




1771* 


05 


17781 


AS 35 


177 A| 


C5 22 


177CI 


00^» 


177EI 


A5 57 


17801 


F0»* 


17821 


00 ♦♦ 


17841 




177C* 


06 


17841 


1784 


17841 


C6 56 


17861 


38 


17871 


E5 22 


17891 


B0»* 


178BI 


49 VT 


178Di 


69 01 


178F| 


E6 59 


1789* 


06 


17911 


1791 


17911 


85 58 


17931 


A5 16 


17951 


85 69 


17971 




17971 


1797 


17971 


20 5511 


179AI 


C4 23 


179Ct 


F0»» 


179EI 


20 9213 


17A1I 


A5 58 


17A3I 


20 ♦♦♦♦ 


17A6i 


85 69 


179C* 


OA 


17A8I 


20 8413 


PACE 


- 64 LISA 


17ABI 




1782* 


27 


17ABJ 


AS IC 


17ADI 


A6 57 


17Ar| 


D0*» 


17Blt 


AS 69 


17 AF* 


02 


17B3I 


20 ♦♦♦♦ 


17B6I 


AS 35 


17B8I 


85 22 


17BAI 


20 ♦♦♦♦ 


1780* 


3B 


17BD| 


17BD 


17BDI 


20 3113 


17C0I 


A2 00 


17C2I 


86 OC 


17C4| 


4C E612 


17C7I 




17C7I 




17C7I 




17C7I 




17C7I 




17C7I 




17C7I 




17C7| 




17C7I 




17C7| 




17C71 




17C7I 




17C7I 




17C7I 




17C7I 




17C7I 




17C7I 




17C7I 




17C7| 




17C7I 




1602^ 


C617 


17C7I 


17C7 


17C7| 


20 ♦♦♦* 


14E6^ 


CA17 


17CAI 


4C CA17 


17CDI 





Seek . equ 


# 


jsr 


Init 


Jsr 


CaidClnUp 


SeckAlt .equ 


* 


Idle 


•00 


8tK 


TrfcFlg 


8tM 


MtrFlg 


8t» 


Direct 


den 




8t» 


HestSeek 


Ido 


MtrOn 


bne 


S20 


dec 


HtrFIg 


Jsr 


TrnMtrOn 


S20 Ida 


IIob«Traek 


dp 


CurTraek 


bne 


Seekl 


Ide 


MtrFlg 


beq 


SeekEnd 


bne 


JstMtr 


Seekl .ECU 


^ 


dee 


TrkFlg 


see 




sbe 


CurTraek 


be8 


pstv 


cor 


•Off 


ade 


•1 


inc 


Direct 


p8tv . equ 


♦ 


8ta 


StpAmt 


Ida 


HeaOc lay 


sta 


Dc lay 


Scck2 . equ 


♦ 


J«r 


TrkClss 


CPU 


CurClass 


beq 


$60 


Jsr 


SetSpdy 


Ida 


StpAmt 


jsr 


ClcScOly 


sta 


Oe lay 



Global setup routine t return m/ *o* ■ 
Clear CoByte and ErrStet 

Alternate entry m/o *INIT' of variables 

assume ne head mavement & motor olready en 

assume *0* (taward spindle) direct ian 

tell 68K that I am seeking 

If « *ff* then matar Is already en 

tell me ta wait full 400 msec 
turn the motor an 



wrong track 

some trock & motor olready on so select side 
Just mo it for the motor to settle 



; *A* hos XIob*Troek olreody 

; Indicate that Head needs pesitlening 

; abs(destinatian - current) « amt ta mave 

; If ecC « 1 then pesitive result 

; take 2's camp lament 

; set outward direction (awoy from spindle) 



; ossumc only wo it for heod settling 

; return m/ *Y' « closs of Ilob^Trock 

; set the speed w/ *Y** « trk closs index 

; cole speed change deloy time, return in *A* 



$60 Jsr DoSeek 
FILES SEEK. TEXT Sony DRIVER FOR LISA 



JstHtr Ido MOnDly 

IdK MtrFlg 

bne S80 

Ido Deloy 



; finolly do the actual seek 



SBO Jsr Ma it 

Ida XIab«^Track 

sta CurTraek 

Jsr SpdChk 

SeekEnd . equ * 

Jsr TrnMtrOn 

ld» •O 

stK HostSeek 

Jmp Se IS idc 



; wait for Motor, speed .chonge & Hood settling 
; cheek the speed L adjust if neeessory 

; for flaky PAL problems 

; No more seeking 
; select proper side 

PROCERR 

This code will do many things. It will either deselect the drives, turn eff 
the motors, pork the heods first, clear the Cobytc ond ErrStat, and maybe 
Jump to itself ferevcr. 



REGISTERS 




IN 




A » 


ANY VALUE 


X « 


ANY VALUE 


Y « 


ANY VALUE 


OUT 





ALL « DESTROYED 

ESAD . EQU ♦ 

JSR PRKCLRO 

PROGERRl JHP PROGERRl 



; Used by drap dead cammand 

; turn off motor and clear the COBYTE 

; LOOP FOREVER f 



17C8* 


CD17 








173A^ 


C017 








17C0I 


17C0 PRKCLRO 


.EDO 


« ; Pork Ihc heads ond clcor the GOBYTE 


17C0I 


20 2A13 




JSR 


TrMtOff 


17D0I 


A9 00 




Ido 


•00 


X702I 


4C £615 




JHP 


CMOCLNUP 


X705I 










17D5I 










17051 


, 


INCLUDE 1 


^JAITROM 


PACE • 


- 65 LISA FILE: WAITROM.TEXT Sony DRIVER FOR LISA 


17D5I 




PACE 






17D5I 




♦ ♦ 






17D5I 










17D5I 








WAITROH 


17DSI 










17051 




UAITROM 


SWITCHES OFF BOTH MOTORS AND THEN WAITS UNTIL THE 68000 DIAGNOSTICS 


17051 




i SETS LOCATION 


000 (68K « OOOCOO) FIRST TO mOBS AND THEN TO •096. THE 6504 


17051 




, HILL THEN DO 


A COLO START OF THE SYSTEM. 


17051 










17051 




; -- 






17051 










17051 




\ REGISTERS 




17051 




> IN 






17051 




i A 


« 


ANY VALUE 


17051 




• X 


« 


ANY VALUE 


17051 




; Y 


« 


ANY VALUE 


1705! 




J OUT 






17051 




i RETURNS 


VIA A COLO START. 


17051 










17051 




i ♦♦ 






17051 










1600 ♦ 


0417 








ITOSi 


1705 


MAITROM 


.ECU 


• ; ENTRY POINT FOR WAITROM 


17051 


20 C017 




JSR 


PRKCLRO ; Pork heads, turn Motors off & clear GOBYTE 


17081 










17081 




; LOOP 


until 


69/96 sequence occurs 


17081 










17081 


A5 00 


MAITROMl 


LDA 


000 ; WAIT FOR »069 


170AI 


C9 69 




CHP 


•069 


170CI 


DOFA 




BNE 


HAITROMl 


170EI 










170EI 


C5 00 


HAITR0M2 


CMP 


000 ; WAIT FOR 9096 


17E0I 


FOFC 




BEQ 


WAITR0H2 


17E2I 










17E2I 


38 




SEC 




17E3I 


65 00 




ADC 


000 ; WILL BE IF * 96 


17E5I 


DOFl 




BNE 


WAITROMl 


17E7I 


4C 3414 




JMP 


ONWHWT ; Reset the world m/o aiemery wait 


17EAI 










17EAI 


• 








17EA) 










17EAI 




.INCLUDE 


NREA016 



PAGE 



17EAI 
17EAI 
17EAI 
17EAI 
17EAi 
17EAI 
17EAI 
17EAI 
17EAI 
17EAI 
17EAI 
17EAI 
17EAI 
17EAI 
17EAI 
17EAI 
17EAi 
17EAI 
17EAI 
17EAI 
17EAI 
17EAI 
PACE 



18001 

18001 

18001 

18031 

1806{ 

18081 

1806 « 

1809i 

180Bt 

180BI 

180Bt 

180Dt 

180Dt 

18101 
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FILE: NREA016.TEXT Sony DRIVER FOR LISA 



.PAGE 



NREAD16 

NREAD16 ossunes thot the disk is spinning et the proper speed 
ond the heod is located at the proper Side /Track ond thot the heoder 
for the sector desired has already been faund. First it will read in 
the beginning data aarks, then the data, and finally the trailing data 
bytes. It will abort if the proper storting or ending sequence of 
data bytes is nat faund. 



REGISTERS: 
IN: 



ALL «* Any value 



OUT: 



ALL 



DESTROYED 



00 00 00 00 00 00 00 
► 67 LISA FILE: 



1800 
20 9B13 
20 ♦♦♦♦ 
90 ♦♦ 
60 
01 
AO F4 

180B 
E6 44 
1800 
AE 0E08 
lOFB 



.ORG 1800 

NREAD16.TEXT Sany DRIVER FOR LISA 



.PAGE 






READ16 


.ECU 


9 




J«»^ 


SetRMede 




JSR 


RDSYNTOP 




BCC 


S03 




RTS 




S03 


LDY 


•0F4 


RDBFOl 


.ECU 


« 




INC 


INXPTRH 


RDBF02 


.ECU 


• 




LOX 


Q7L 




BPL 


R06F02 



; setup PAL on Sony to read wodc 

; Read the sync nibbles 

; If bits lip Marks found then cerry s 



; 2 15 First tiMc only 12 bytes 



; 5 28 Point to next page 



i 4 
; 2,3 



14 Dec 03 



A2/SYSP:SY.TEXT 



Page 029 



18121 


BO 0011 




LDA 


DNIBL.X 




4 


10 


18151 


OA 




ASL 


A 




2 


12 


18161 


OA 




ASL 


A 




2 


14 


18171 


AA 




TAX 






2 


16 


18181 


OA 




ASL 


A 




2 


18 


18191 


OA 




ASL 


A 




2 


20 


181 At 


85 6E 




STA 


TEMPI 




3 


23 


181CI 


8A 




TXA 






2 


25 


181Dt 


29 CO 




AND 


•OCO 




2 


27 


18ir| 
















181F| 


AE OE08 


SIO 


LDX 


07L 




4 




18221 


lOFB 




BPL 


SIO 




2.3 




18241 


ID 0011 




ORA 


DNIBL.X 




4 


10 


18271 


91 43 




STA 


•INXPTRL.Y 




6 


16 


18291 


AS SE 




LDA 


TEMPI 




3 


19 


182Bt 


C8 




I NY 






2 


21 


182CI 


DO** 




BNE 


S20 




2/3 


23/24 


182CI 


E6 44 




INC 


INXPTRH 




S 


28 


18301 
















182C* 


02 














18301 


AE 0E08 


S20 


LDX 


07L 




4 




18331 


lOFB 




BPL 


S20 




2.3 




18351 


29 CO 




AND 


•OCO 




2 


8 


18371 


ID 0011 




ORA 


DNIBL.X 




4 


12 


183AI 


91 43 




STA 


•INXPTRL.Y 




6 


18 


183CI 


C8 




I NY 






2 


20 


183DI 


FO** 




BEQ 


RDCSMOl 




2/3 


22/23 


183F1 


A5 6E 




LDA 


TEMPI 




3 


24 


18411 


OA 




ASL 


A 




2 


26 


18421 


OA 




ASL 


A 




2 


28 


18431 
















18431 


AE oeo8 


S30 


LDX 


07L 




4 




18461 


lOFB 




BPL 


S30 




2.3 




18481 


29 CO 




AND 


•OCO 




2 


8 


184AI 


ID 0011 




ORA 


DNIBL.X 




4 


12 


184Dt 


91 43 




STA 


•INXPTRL.Y 




6 


18 


184Fi 


C8 




I NY 






2 


20 


18501 


F0B9 




BEQ 


ROBFOl 




2/3 


22/23 


18521 


D0B9 




BNE 


ROBF02 




3 


25 


18541 
















PACE 


- 68 LISA 


FILE: NREAD16. 


TEXT 


Sony DRIVER FOR 


LISA 




18541 




.PAGE 












183D* 


15 














18541 


18S4 


ROCSMOl 


.EOU 


♦ 








18541 


AE 0E08 




LDX 


07L 




4 




18571 


lOFB 




BPL 


RDCSMOl 




2,3 




18591 


BD 0011 




LDA 


DNIBL.X 




4 


10 


185CI 


OA 




ASL 


A 




2 


12 


185DI 


OA 




ASL 


A 




2 


14 


185EI 


A8 




TAY 






2 


16 


185FI 


29 CO 




AND 


•OCO 




2 


18 


18611 
















18611 


AE oeo8 


tio 


LDX 


07L 




4 




1864) 


lOFB 




BPL 


SIO 




2,3 




18661 


ID 0011 




ORA 


DNIBL.X 




4 


10 


18691 


85 61 




STA 


CKSUMl 




3 


13 


186Bi 


98 




TYA 






2 


15 


186CI 


OA 




ASL 


A 




2 


17 


1860i 


OA 




ASL 


A 




2 


19 


186EI 


A8 




TAY 






2 


21 


186FI 


29 CO 




AND 


•OCO 




2 


23 


18711 
















18711 


AE 0E08 


S20 


LDX 


07L 




4 




18741 


lOFB 




BPL 


S20 




2.3 




18761 


ID 0011 




ORA 


DNIBL. X 




4 


10 


18791 


85 62 




STA 


CKSUM2 




3 


13 


187Bt 


98 




TYA 






2 


15 


l87Ct 


OA 




ASL 


A 




2 


17 


187Dt 


OA 




ASL 


A 




2 


19 


187EI 
















187EI 


AE 0E08 


S30 


LDX 


07L 




4 




18811 


lOFB 




BPL 


S30 




2.3 




18831 


ID 0011 




ORA 


DNIBL.X 




4 


10 


1886) 


85 63 




STA 


CKSUM3 




3 


13 


18881 
















1888) 


AD 0E08 


RD9 


LDA 


07L 




4 




188BI 


lOFB 




BPL 


RD9 




2.3 




188Di 


C5 73 




CMP 


DatMk4 




3 




188FI 


DO** 




BNE 


BSERR 




2.3 




18911 
















18911 


AD OE08 


RDIO 


LDA 


07L 




4 




18941 


lOFB 




BPL 


RDIO 




2.3 




18961 


C5 74 




CMP 


DotMkS 




3 




18981 


DO** 




BNE 


BSERR 




2.3 




189AI 


18 




CLC 










189BI 


AD 0008 


W}EXIT 


LDA 


06H 


; 






189e| 


60 


ROWASTE 


RTS 










189Fi 
















PACE 


- 69 LISA 


FILE: NREAD16. 


TEXT 


Sony DRIVER FOR 


LISA 




189FI 




.PACE 












1898* 


05 














188F* 


OE 















Map from 8 bits ■» 6 bits 

Save temparar i ly 

>BBCCOOOO< 

>AAOOOOOO< 

Read lam bits af byte A 

Canbine law IL high bits 

>6BCC0000< 

Paint ta newt page 

Read law bits af byte B 

>BBOOOOOO< 

Add law & high bits 

>BBCCOOOO< 

Read low bits of byte C 

>CC000000< 

Add law & high bits 



Inc ta next page if * 
Braneh always taken 



Read 4 bytes af eheeksum 

Map from 8 bits ««> 6 bits 

>AABBCC00< 
>AA000000< 

Read low bits of byte A 

Add low & high bits 



>BBCC0000< 
>BBOOOOOO< 

Read low bits of byte B 

Add low & high bits 

>BBCCOOOO< 

>CCOOOOOO< 

Read law bits of byte C 

Combine law & high bits 

Check bits lip Mark 1 



Check bits lip mark 2 



SENSE aiadc 



14 Oee tS 



12/SY$P:SY.TCXT 



^•9e 030 



lesri 


es 49 


BSERR 


INC 


BSCNT , 


Trailing bits lip nark error counter 


18AI1 


38 




SEC 






i8A2| 


B0F7 




BCS 


RDEXIT J 


Return to SENSE Modc & CKit 


XeA4t 












16A4i 


£6 4A 


CSERR 


INC 


CSERROR J 


Checksum error counter 


I8A61 


38 


RDERR 


SEC 






ieA7i 


B0F2 




BCS 


RDEXIT 




18A9I 












18A9I 


E6 48 


RDERR2 


INC 


STSLP J 


Starting bits lip errar caunt 


18ABi 


38 




SEC 






I8AC1 


BOEO 




BCS 


RDEXIT 




i8AE| 












1804* 


AE18 










18ACt 


18AE 


RDSYNTOP . ECU 


♦ 1 


Subroutine to rood starting bits lip marks 


I8AE1 


AD ocoe 




LDA 


06L J 


Switch fraifi SENSE ta READ MODE 


X8BI1 


A2 00 




LDX 


tOOO i 


Far in it af index base values 


18B3I 


AO 20 




LDY 


•NIBLRETR 


No. of retries ol lowed for bits lip read 


18B5i 


88 


RSYNC 


OEY 






I8B61 


FOFl 




BEG 


R0ERR2 




I8B81 












I8B81 


AD 0E08 


RSI 


LDA 


07L 1 


4 


I8BB1 


lOFB 




BPL 


RSI 


2.3 6 


18601 . 


C5 70 


RSYNCl 


CMP 


DatMkl ; 


3 9 Data nark 1 


I86F1 


O0F4 




BNE 


RSYNC 


2,3 11.12 


IBCli 












I8CI1 


86 43 




STX 


INXPTRL J 


3 14 


18C3I 


AO 0C08 


RS2 


LDA 


Q7L 


4 


I8C61 


lOFB 




BPL 


RS2 


2.3 6 


I8C81 


C5 71 




CHP 


DatMk2 J 


9 9 Data Mark 2 


I8CA1 


DOFl 




BNE 


RSYNCl 


2,3 11,12 


I8CC1 












I8CC1 


86 44 




STX 


INXPTRH i 


3 14 


iBcei 


AD oeo8 


RS3 


LDA 


07L 


4 


I8D11 


lOFB 




BPL 


RS3 


2,3 6 


18031 


C5 72 




CMP 


DatMk3 


3 9 Data Mark 3 


18051 


D0E6 




BNE 


RSYNCl 


2.3 11.12 


18D7I 


16 




CLC 




2 13 


I8O81 












I8D81 


AD 0E08 


RS4 


LDA 


07L 


4 Read SECTOR number ( unchecked ) 


18DBt 


lOFB 




BPL 


RS4 


2.3 6 


18D0i 


60 




ms 




Back ta caller 


I8DC1 












I8DC1 












I8DC1 




. INCLUDE READ 






PAGE 


- 70 LISA 


FILE: READ. TEXT Sony 


DRIVER FOR LISA 




I8DC1 




.PAGE 








I8DE1 




I ♦♦ 








I8DE1 








READ 


I8DE1 












I8DE1 


• 




READ Mill read a sector 


Prom Drive/Side/Track/Secter, da ing off track 


I8DE1 






stepping if necessary to 


find the data. It Mill alsa verify the 


I8DE1 






eheeksuM found if cosnanded to do so. 


I8DE1 












IBDEt 




1 REGISTERS: 






I8DE1 






IN: 






IBDEt 






ALL 


*c Any value 




IBDEi 












I8DE1 






OUT: 






IBDEt 






ALL 


»« DESTROYED 




IBDEl 












IBDEt 




1 CALLS: 






IBDEt 






SEEK 


Seeks to 


Drive/Side /Track 


IBDEt 






RDADR 


Reads address header field 


IBDEt 






READ16 


Reads da 


ta ft checksum 


ISDEt 






VFYCKSUM Verifies 


checksum that Mas read 


IBDEi 






BADOADDR Handles i 


9II errars during read 


18DEt 




• ♦♦ 








IBDEt 












1671 ♦ 


DD18 










180Et 


IBDE 


READBF 


.EQU 


♦ 


; Read m/o checksum verify entry paint 


IBDEt 


A9 FF 




LDA 


•OFF 




IBEOi 


DO** 




BNE 


READOl 




18E2t 












1663* 


El 18 










18E2i 


18E2 


READ 


.ECU 


♦ 




18E2I 


A9 00 




LDA 


•00 




18E0« 


02 










18E4I 


85 68 


RE ADO 1 


STA 


RMCSMFLC 


; Save in glabal flag 


IBEGt 


20 5E17 




JSR 


SEEK 


i SEEK TO TRACK, ZERO ERROR CNTS, INIT RETRY 


18E9I 


20 4912 


READl 


JSR 


RDADR 


; FIND SECTOR 


IBECt 


BO** 




BCS 


READ3 


; ERROR. CO AND CHECK IT 


IBEEt 


20 0018 




JSR 


READ16 


J READ THE SECTOR 


IBFlt 


BO** 




BCS 


READ3 




I8r3i 


A6 68 




LDX 


RWCSMFLG 


; Fetch the checksum flag 


IBFSt 


DO** 




BNE 


READ4 


; If X then ignore checksum verify 


lBr7t 


20 **** 




JSR 


VFYCKSUM 


; Verify the checksum 


IBFAt 


90** 




BCC 


READ4 


; If carry clear then all is fine 


IBFCl 


E6 4A 




INC 


CSERROR 


I Increment the checksum errar eaunter 


IBFEl 












IBFl* 


OB 










IBEC* 


10 










IBFEf 


20 **** 


READ3 


JSR 


BAOADOR 


J FIND OUT MHAT MENT HRONC ( ecC « I ) 


IBOlt 


90E6 




BCC 


READl 


i TRY ONCE MORE 


19031 


A9 17 




LDA 


•SERRRO 


i NO GOOD. SIGNAL READ ERROR 



14 Dee t3 



ISFA* 09 

lers* ot 

19051 SO 

19061 

PACC - 71 LISA 



19061 
19061 
19061 
19061 
19061 
19061 
19061 
19061 
19061 
1906i 
19061 
19061 
19061 
19061 
19061 
19061 
PACE - 72 LISA 



19061 
19061 

lerr* 06i9 

19061 1906 
19061 C6 26 
19081 FO** 
190AI 18 
190BI AS 4B 
190DI 65 4E 
190r| F0*» 
19111 C5 27 
19131 FO** 
19151 C5 7B 
19171 FO** 
1919i 85 7B 
191BI DO** 
19101 
1908 « 13 
191DI C6 27 
191F| FO** 
19211 
191B* 04 
19211 20 
19241 20 6417 
19271 A5 19 
19291 85 26 
1917* 12 
190F* lA 
192BI 18 
191F« OB 
1913* 17 
192CI 80 
192DI 
192Dt 
1920! 
PAGE 



flEA04 PTS 
FILE: READ. TEXT Sony DRIVER FOR LISA 



.PAGE 



BADADDR 



ANY VALUE 



REGISTERS 
IN 

All « 
OUT 

All « DESTROYED 

CARRY « RETRY STATUS («CLEAR, DON'T RETRY; «SET, PLEASE RETRY) 



CALLS 



RECALBRT RECALLIBRATE THE DRIVE 
SEEKALT SEEK TO TRACK/SIDE 



FILE: READ. TEXT Sony DRIVER FOR LISA 



.PAGE 



BADADDR 


.ECU 


♦ 




DEC 


RETRYCNT 




KG 


BA0ADDR2 




ele 






LDA 


RASTRT 




&dc 


RATRK 




beq 


BadGeod 




c«p 


RECALCNT 




beq 


BadBad 




cmp 


RtyFlg 




beq 


BadCoed 




sta 


RtyFlfl 




bne 


BadAddr4 


BadAddr2 


dee 


ReealCnt 




beq 


BadBad 


BadAddr4 


JSR 


RECALBRT 




JSR 


SEEKALT 




LDA 


MAXRETRY 




STA 


RETRYCNT 



73 LISA 



FILE: 



BadGeod CLC 
BadBad RTS 



.INCLUDE CRECKSUM 

CRECKSUH. TEXT Sony DRIVER FOR LISA 



ENTRY POINT OF BADADDR ( eeC « 1 ) 

IF NEVE TRIED ENOUGH TINES TO FIND DATA 



OR HE CAN'T FIND START BITSLIP 

OR HERE ON THE HRONC TRK 

try again 

if >K reeallibration eount then abort 

eeC « 1 when A » Menery 

see if new RaStrt or RaTrk error 

if equal then no ehonge from last time 

a ehange -* save new errar caunt 

reea 1 ibratc head loeat ion 



abart upan tineout ( eeC still « 1 ) 



BUT OONT BOTHER HITH SPD ERRORS AT THIS TIHE 
AND GET BACK TO HERE HE HERE ON TARGET TRK 
PICK UP THE MAXIHUM NUHBER OF RETRYS COUNT 
AND REFRESH THE COUNTER 



; ME* RE TRYING AGAIN MATE* 



192DI 
19201 
1920i 
192DI 
192DI 
19201 
192Di 
19201 
192DI 
192DI 
192DI 
19201 
192D1 
192DI 
19201 
19201 
192D1 
19201 
19201 
19201 
19201 
192DI 
192D1 
19201 
19201 
19201 
19201 
19201 
192D1 
192D1 
192D1 
19201 



.PAGE 



CRECKSUH 



Create eheeksuw using S24 byte i/o buffer 



ALGORITHM: 

A seetor is eowposed of S24 user dots bytes and a 3 byte 
eheeksum. These are translated into 6 bit nibbles wh ieh ore used to 
Look up GCR codewords to be written to the disk. The data is eneoded 
as follows: CSUMA, CSUMB, & CSUMC ore **registers** used for aeeumulat ing 
the cheeksum. BYTEA, BYTEB, & BYTEC contain 3 bytes from the data 
buffer. 

1. Rotate CSUMC left 

CSUMC[65432107J <- CSUMC [76543210] 
Carry <- CSUMC[7] 



2. CSUMA <- CSUMA ♦ BYTE A ♦ 

3. BYTEA <- BYTEA xar CSUMC 
4 CSUMC <- CSUMC ♦ BYTEB ♦ 
5. BYTEB <- BYTEB itor CSUMA 
6 CSUMB <- CSUMB ♦ BYTEC ♦ 
7. BYTEC <• BYTEC Kor CSUMC 

Propagation of eorry among three 


Carry from step 1 
Carry from step 2 
Corry from step 3 

eheeksum bytes: 


—CSUMC <— CSUMB <— CSUMA <— 

REGISTERS: 
IN: 

ALL « ANY VALUE 


NOTE: Carry out of CSUMC 
from rotate. 



14 Dec 83 



A2/SYSP: SY. TEXT 



P«9c g^z 



192D1 

192DI 

19201 
192DI 
PACE - 74 LISA 



OUT: 



DESTROYED 



19201 
19201 
19201 
19201 
192r 
1931 
19331 
19351 
19371 
19391 
193BI 
193BI 
193BI 
193CI 
19301 
193FI 
1941 
1942 
19441 
19451 
19471 
19491 
194AI 
194C 
194EI 
194FI 
1951 
1953i 
194F 
19531 
19551 
19561 
19561 
195AI 
195BI 
19501 
195F| 
19601 
19621 
19621 
19641 
19651 
19671 
19691 
196AI 
196CI 
1960t 
196FI 
1971i 
19731 
1960 
19731 
19741 
19741 
PACE 



FILE: CRECKSUM. TEXT Sony DRIVER FOR LISA 



.Pogc 



1920 
A9 00 
85 61 
85 62 
85 43 
85 44 
E6 44 
AO F4 

193B 
DA 
08 

69 00 
85 63 
28 

Bl 43 
AA 

45 63 
91 43 
8A 

65 61 
85 61 
C8 

DO** 
E6 44 

02 

Bl 43 
AA 

65 62 
85 62 
8A 

45 61 
91 43 
C8 
FO** 

Bl 43 
AA 

45 62 
91 43 
8A 

65 63 
C8 

DOCC 
C6 44 
D0C8 

11 

60 



- 75 LISA 



CRECKSUH . ECU 
LDA 
STA 
STA 
STA 
STA 
INC 
LDY 



•00 

CKSUMl 

CKSUM2 

INXPTRL 

INXPTRH 

INXPTRH 

•OF 4 



CRTOP 



.ECU ♦ 
ASL A 



S20 



860 



ADC 
STA 
PLP 
LDA 
TAX 
EOR 
STA 
TXA 
ADC 
STA 
INY 
BNE 
INC 



LDA 
TAX 

ADC 
STA 
TXA 
EOR 
STA 
INY 
BED 

LDA 
TAX 
EOR 
STA 
TXA 
ADC 
INY 
BNE 
INC 



RTS 



•00 
CKSUM3 

•INXPTRL. Y 

CKSUM3 
•INXPTRL, Y 

CKSUNl 
CKSUMl 

S20 
INXPTRH 



•INXPTRL, Y 

CKSUM2 
CKSUH2 

CKSUHl 

•INXPTRL, Y 

S60 

•INXPTRL, Y 

CKSUM2 
•INXPTRL, Y 

CKSUH3 

CRTOP 

INXPTRH 

CRTOP 



19741 

PACE - 76 LISA 



19741 
19741 
19741 
19741 
1974| 
19741 
19741 
19741 
19741 
19741 
19741 
1974| 
19741 
1974| 
1974| 
1974| 
1974| 
19741 
1974| 
19741 
19741 
1974| 
18F8 
1974| 
19741 
19761 
19781 



FILE: VFYCKSUM.TEXT Sony DRIVER FOR LISA 



.INCLUDE VFYCKSUH 
FILE: VFYCKSUH. TEXT Sony DRIVER FOR LISA 



; Entry point for oil collers 



Zero only two bytes 

In it pointer for S eye le Ifidest fetch 

Stort en pogc 1 

Lost 12 bytes in page 1 

InitioUy '*A** « 

Move high bit to eorry 

Sove Stotus bits on staek 

Move eorry to low bit ( 8 bit rotate ) 

Restore Status bits 

First of three bytes in leap 

Combine eheeksum m/ data 
Data ««> buffer 



Add with abave earry 



; End af Page 2 data 
; Paint te page 3 



; Seeand af three bytes 

; Add ta seeand eheeksum byte 

; Cambine checksum m/ data 

; Data ««> buffer 

; End af Page 3 data 

; Third af three bytes 

; Save data value 

; Combine checksum m/ data 

5 Data ««> buffer 

; Restare data value 

; Add ta third eheeksum byte; leave in A 

: Nat at a page baundary, loep 

; Start «/ Page 2 data 

; Branch always taken 

; ENO OF CREATING A CHECKSUM 



.PACE 



VFYCKSUH »« Verify cheksum that was Just read. 

VFYCKSUH will undo the mess that CRECKSUM created by xar* ing the 
checksum into the data bytes. Sec the CRECKSUH deseriptian far the 
algarithm used te understand what is being undanc here. 



REGISTERS 
IN 



OUT 



ceC 



Any value 



DESTROYED 

if eheeksum matches 

1 if eheeksum decs net match 



CALLS 



♦ 7419 

1974 

A9 00 

85 64 

85 65 

197AI 85 43 



NONE 



VFYCKSUH . EOU ♦ 

LDA •OO 

STA TCKSHl 

STA TCKSH2 

STA INXPTRL 



; Entry point far all callers 

; In it temperay checksums to xero 



14 Dec 63 



m^z-^iMr: dT. i(.jki 



Page uj4 



197CI 


95 44 


197EI 


C6 44 


19801 


AO F4 


19821 




19821 


1982 


19821 


OA 


19831 


08 


19841 


69 00 


19861 


85 66 


19881 


28 


19891 


Bl 43 


198B{ 


45 66 


198Dt 


91 43 


198FI 


65 64 


19911 


85 64 


19931 


C8 


19941 


DO** 


19961 


£6 44 


19981 




1994* 


02 


19981 


Bl 43 


199AI 


45 64 


199CI 


91 43 


199EI 


65 65 


19A0i 


85 65 


19A2I 


C8 


PACE 


- 77 LISA 


19A3I 


FO** 


19A5I 




19ASI 


Bl 43 


19A7I 


45 65 


19A9I 


91 43 


19AB) 


65 66 


19A0I 


C8 


19AEI 


D0D2 


19B0( 


C6 44 


19B2i 


DOCE 


19B4I 




19A3* 


OF 


19B4i 


C5 82 


19B6I 


DO** 


19B8I 


AS 66 


19BAi 


C5 63 


19BCI 


DO** 


19BEI 


AS 64 


19C0I 


C5 61 


19C2I 


DO** 


19C41 


18 


19C5I 


60 


19C6i 




19C2* 


02 


19BC* 


08 


19B6* 


OE 


19C6t 


38 


19C71 


60 


19C8i 




19C8i 




19C8i 




PAGE 


- 78 LISA 


19C8I 




19C8I 




19C8I 




19C8I 




19C8I 




19C8I 




19C8I 




19C8I 




19C8t 




19C8t 




19C8I 




19C81 




19C8I 




19C8I 




19C8i 




19C8I 




19C8I 




19C8I 




19C8t 




19C8I 




19C8t 




1665* 


C719 


19C8i 


19C8 


19C8i 


20 2D19 


1673* 


CA19 


19CBI 


19CB 


19CBI 


20 7715 


19CEI 


20 5E17 


19D1I 


20 4912 


19D4I 


90** 


19D6I 


20 0619 


19091 


90F6 


190BI 


A9 18 



VFTOP 



STA 


INXPTPH 




INC 


INXPTPH 




LDY 


•OF 4 




.eou 


♦ 




ASL 


A 




PHP 






ADC 


•00 




STA 


TCKSM3 




PLP 






LDA 


•INXPTRL, 


Y 


EOR 


TCKSM3 




STA 


•INXPTRL, 


Y 


ADC 


TCKSMl 




STA 


TCKSMl 




I NY 






BNE 


S20 




INC 


INXPTRH 




LDA 


•INXPTRL, 


Y 


EOR 


TCKSMl 




STA 


•INXPTRL, 


Y 


ADC 


TCKSM2 




STA 


TCKSM2 




I NY 







S20 



FILE: VFYCKSUM. TEXT Sony DRIVER FOR LISA 



BEQ S60 



$60 



LDA 


•INXPTRL, Y 


EOR 


TCKSM2 


STA 


•INXPTRL, Y 


ADC 


TCKSM3 


INY 




BNE 


VFTOP 


INC 


INXPTRH 


BNE 


VFTOP 


CMP 


CKSUM2 


BNE 


S80 


LDA 


TCKSM3 


CMP 


CKSUM3 


BNE 


S80 


LDA 


TCKSMl 


CMP 


CKSUMl 


BNE 


S80 


CLC 




RTS 





; Start at page 1 
; Only last 12 bytes 



Ratate the third checksum byte 

Save Status bits 

Put carry inte law bit (8 bit ratate) 

Save 3rd cksum byte 

Restare Status bits 

Read Irst byte af 3 byte laep 

Restare ar iginal data 



; And update the checksum 



; Next page 



; 2nd byte af 3 byte loap 
; Restare ar iginal data 



; And update the checksum 



; Last byte ta sum 

; 3rd byte of 3 byte loap 

; Restare original data 

; Update the checksum ond leave in A 

; Not at page baundary, laap 

i Next page 

; Branch always taken 



'A' reg has TCKSH2 



S80 



SEC 
RTS 



.INCLUDE NRITE 
FILE: MRITE.TEXT Sany DRIVER FOR LISA 

.PAGE 



NRITE 

WRITE Mill write to a Dr ive/Side /Track /Sector after the seetar 
header has been found by **RDADR". Depending upon the command, it 
Mill perfarm a checksum opcrot ion on the data. If it is unable ta 
read the address header mark after 100. tries it Mill recalibrotc 
ond try once more. 



REGISTER 
IN 

ALL «« 



OUT 



ALL 



Any value 
DESTROYED 



WRITE 



.EOU * 

JSR CRECKSUM 



WRITEBF .EOU * 

JSR PRENIB 

JSR SEEK 

WR1TE3 JSR ROADR 

BCC WRITE16 

JSR BADADDR 

BCC WRITE3 

LDA •SERRMR 



; Create a checksum 

; Write data using hast supplied checksum 

S Setup data far reading across page baundaries 

; FIND SECTOR 

: WRITE IF OK & return ta caller from WRITE16 



; WRITE ERROR 



19D0I 60 

19DC1 

19DCI 

19Dq 

PACE - 79 LISA 



19de:i 
i9oei 

190CI 
190EI 

i9oq 

190CI 
X90£| 
190CI 

i9Dq 

190CI 

i9oq 
19De:i 
190e;i 

19DCI 

PAGE - 80 LISA 



FILE: 



RTS 



.INCLUDE MritclS 

MRITC16.TEXT Sony DRIVER FOR LISA 



.poge 



; SXO 



Nrltcie 



IdK 

bp\ 

sto 



06L 
SIO 
06L 
SIO 
06H 



1 

4 

8 

10 

14 



31 cycles mox oftcr bit Is set before UndcrRun bit is set. 
OS start of time critical code, 
totol time « ((32-14 )«31) « 49 cycles 



FILE: HRITE16.TEXT Sony DRIVER FOR LISA 



Assume morst cose 

branch taken 

bit Mill be set 

fall thru 

put the data Into reg 



Using above cede 



19DEI 

19Dq 

1904* 

lAOOl 

lAOOi 

1A02I 

1A05I 

1A07I 

lA09t 

lAOBl 

lAOCl 

lAODl 

lAlOl 

lA12t 

lA14i 

lAlGi 

1A16I 

lAlSi 

1A14* 

1A18I 

lAlBl 

lAlDl 

1A20I 

1A20I 

1A231 

1A2SI 

1A28I 

1A29I 

lA2At 

lA2Bi 

1A2DI 

1A30I 

1A33I 

1A3SI 

lA36t 

1A38I 

1A3AI 

lA3Bi 

1A3DI 

1A40I 

1A40I 

1A41I 

1A43I 

lA46i 

1A48I 

1A4AI 

1A4BI 

1A4CI 

1A4DI 

lASOl 

1AS3I 

1A53I 

lAS6i 

1A57I 

PAGE < 



1A58I 
lASBi 
lASEl 
1A601 
1A63I 
lA63i 
lAGSi 
1A67I 
1A68I 
1A6A( 
lA6At 
1A6AI 
1A6AI 
lASAi 
1A6AI 



00 00 00 00 00 00 00 

2A 

lAOO 

A6 34 

BO 0010 

85 60 
AO 00 

84 44 
98 

C8 

20 3A15 
AO F4 
A9 AD 
DO*^ 

1A16 

86 60 
02 

AE 0C08 
lOFB 
80 0008 

BE 0201 
60 0010 

85 6C 
8A 

4A 
4A 

85 6E 
BE 0101 
BO 0010 
85 68 
8A 

29 CO 
05 6E 
4A 

A6 60 
8E 0008 

4A 
85 6E 

B9 0001 
29 CO 
05 6E 

4A 

4A 

AA 

BD 0010 

80 0D08 

BE 0001 

C8 

C8 

81 LISA FILE: 



60 0010 
AE 0C08 
lOFB 
80 0008 

A5 66 
A6 6C 
C8 
DOAC 



.page 

.org 

Hrltel6 



Pgl 



PglK 



lAOO 

.equ ^ 

ld» IIOB^Sector 

Ida Nibl.K 

8ta Sv4 

Idy •O 

sty XnKPtrH 

tya 

Iny 

Jsr Syne20 

Idy •0F4 

Ida tfOAD 

bne Pglx 

.equ ^ 
stK Sv4 

Idx 06L 
bpl PglK 
sta Q6H 



precise page alignment 



no speed cheek bytes 

flog to tell 8ync20 to use data mark values 

Mrite only one set of self -sync bytes 

6 6 turn on write circuitry & write self -syne bytes 

2 10 lost byte of .data header field 

3 13 

Code to write out lost 12 bytes of Poge 91 



ld> 
Ida 
sta 
txa 
Isr 
Isr 
sta 
Idle 
Ida 
sta 
tica 
and 
oro 
Isr 
Idx 
stx 



Idx 

iny 
iny 
MRITE16.TEXT 



4 
2.3 

4 

4 
4 
3 
2 
2 
2 
3 
4 
4 
3 
2 
2 
3 
2 
3 
4 

2 
3 

4 
2 
3 

2 
2 
2 
4 
4 

4 
2 
2 
Sony DRIVER FOR LISA 



Page01«2, y 

Nibl.x 

Sv3 

a 

a 

Tempi 

PagcOl^l.y 

Nibl.x 

Sv2 

•oco 

Tempi 

o 

Sv4 

06H 



Isr o 

sta Tempi 

Ida PageOl.y 

and VOCO 

or a Tempi 

Isr a 

Isr a 

tax 

Ida Nibl,x 

sta 06H 



PageOl.y 



SIS 



1A6A 



Pg2 



Ida Nibl.x 

Idx Q6L 

bpl SIS 

sta 06H 

Ida Sv2 

Idx Sv3 

iny 

bne Pgl 



. equ 



4 
4 
2,3 

4 

3 
3 

2 
2.3 



17 

19/20 

14 

18 
22 
25 
27 
29 
31 
34 
38 
42 
45 
47 
49 
S2 
S4 
57 
61 

2 
5 

9 

11 

14 

16 

18 

20 

24 

28 

4 
6 
8 



12 
16 
18 
22 

3 
6 
8 

10 



warst case possible 



61-14 » 47 

Hritc last byte of previous loop 



Second byte of loop 
Third byte 

fetch rest of 12 bytes 

fall thru & start an Page 92 



; Cade to write out first 255 bytes of Page 02 



14 Dec 83 



42/SySP:SY.TEXT 



rage 035 



IA6AI 
lA6Ct 
lA6r| 
1A71I 
1A74| 
1A74I 
1A77I 
lA7Ai 
1A7CI 
1A7DI 
1A7CI 
1A7FI 
1A81I 
1A64I 
1A87I 
1A89I 
lABAl 
lAeCl 
1A8EI 
1A8FI 
1A91I 
1A94I 
XA94I 
1A95I 
1A97I 
lA9Ai 
1A9CI 
lA9Ei 
1A9FI 
lAAOl 
lAAli 
1AA4I 
IAA7| 
1AA7I 
lAAAl 
lAABl 
lAACt 
lAAFi 
1AB2I 
lAB4i 
PACE 



86 SO 
AC 0C08 
lOFB 
80 0008 

K 0202 

BO 0010 

85 6C 
8A 
4A 
4A 

85 6E 

BE 0102 

BO 0010 

85 SB 
8A 

29 CO 

05 6E 
4A 

A6 60 

8E 0008 

4A 

85 6E 

B9 0002 

29 CO 

05 6E 

4A 

4A 

AA 

BO 0010 

80 0D08 

BE 0002 
C8 
C8 

BO 0010 
AE 0C08 
10F6 
80 0008 
- 82 LISA FILE: 



1AB7I 

1AB7I 

1AB9I 

lABBi 

lABCi 

lABq 

lACOl 

lACOl 

lAC3t 

lAC6i 

lAC9r 

lACBl 

lACDl 

lAOOl 

lAOOl 

1A02I 

1A051 

lA08i 

1AD8I 

lAOBi 

lAOEl 

lAEOl 

lACl^ 

lAEOl 

lAEOt 

1AE3I 

1AC51 

1AE8I 

lAE8i 

lA£8i 

lAEBi 

lAE8i 

1AE8I 

lAE8i 

1AD6» 

1AE9I 

1AE9I 

lAECi 

1AE6* 

lAEl* 

lACE* 

lAECf 

lAECl 

lAEFi 

lAFli 

lAF4i 

lAFSl 

lAFSl 

IBOOl 

IBOOl 

lAOE* 

1B02I 

1B05I 



AS 6B 
A6 6C 
C6 

CO FF 
DOAA 

20 ♦♦♦♦ 
AE 0103 
BO 0010 
85 60 
AS 5E 
20 ♦••♦ 

AO 02 
AE rF02 
20 ^*<** 

AE 0003 
BD 0010 
00** 

COIA 
lAEO 
20 ••♦♦ 
AS 6C 

4C ♦♦♦♦ 



1AE8 HrBytc 

AA 

E91A 

1AE9 WrByteX 

BD 0010 

ECIA 

ECIA 

ECIA 

lAEC NrNibl 

AE 0C08 

lOFB 

80 0008 

60 

00 00 00 00 00 00 00 .olign 

IBOO Ps3 

86 60 

22 

AE 0C08 Ps3k 

lOFB 



Stic 


Sv4 


» 3 




S40 Idii 


06L 


4 




bpl 


S40 


2.3 




sto 


06H 


4 


14 


Ids 


Po9e02«2,y 


4 


18 


Ido 


Nibl.K 


4 


22 


sto 


Sv3 


3 


25 


tKO 




2 


27 


Isr 


o 


2 


29 


Isr 


a 


2 


31 


sto 


Tempi 


» 3 


34 


Ids 


Page02^1,y 


» 4 


38 


Ido 


Nibl.K 


- 4 


42 


sto 


Sv2 


, 3 


45 


tKO 




2 


47 


ond 


•OCO 


2 


49 


oro 


Tempi 


3 


52 


Isr 


o 


2 


54 


Idic 


Sv4 


, 3 


57 


stx 


06H 


4 


61 


Isr 


a 


, 2 


2 


sto 


Tempi 


, 3 


5 


ido 


Pagc02. y 


» 4 


9 


and 


•OCO 


; 2 


11 


oro 


Tempi 


; 3 


14 


isr 


o 


; 2 


16 


isr 


o 


, 2 


18 


tax 




; 2 


20 


Ido 


Nibl.K 


i 4 


24 


sto 


Q6H 


; 4 


28 


IdK 


Pagc02, y 


; 4 


4 


iny 




; 2 


6 


tny 




; 2 


8 


Ido 


Nibl.K 


i 4 


12 


fSS IdK 


06L 


; 4 


16 


bpl 


S55 


i 2,3 


16 


sto 


06H 


; 4 


22 


IIRITE16.TEXT 


Sany DRIVER FOR 1 


.ISA 




Ido 


Sv2 


\ 3 


3 


IdK 


Sv3 


; 3 


6 


iny 




i 2 


8 


spy 


•P92Len 


\ 2 


10 


bne 


Pe2 


. 2,3 


12 


jsr 


MrAX 


\ 6 


26/6 


IdK 


Page03«l 


\ 4 


10 


Ida 


Nibl.K 


1 4 


14 


sta 


Sv4 


( 3 


17 


Ida 


CpByOl 


5 3 


20 


Jsr 


MrNibl 


J 6 


26/6 


Idy 


•02 


; 2 


8 


IdK 


Pagc02^0FF 


; 4 


12 


Js«- 


MrByteX 


\ 6 


18/8 


IdK 


Page03 


» 4 


10 


Ida 


Nibl.K 


► 4 


14 


bne 


Pg3K 


; 3 


17 


MrAX . cqu 


♦ 


' write 


nibls 


Jsr 


NrNibl 


.6 


32/6 


Ida 


Sv3 


, 3 


9 


Jmp 


NrNibl 


} 3 


12/6 



worst ease passible 



61-14 
Mrite 



• 47 

last byte af previaus leap 



Campasite af 3 bytes 



Seeand byte af leap 
Third byte 



feteh rest af 255 bytes 
write Nibls in A and X 



far use in Pg3 



.equ * 
tax 

.equ * 

Ida Nibl.K 



.equ ♦ 
Idx Q6L 
bpl NrNibl 
sta 06H 
rts 

0100 
. equ ^ 
stx Sv4 

idx 06L 
bp 1 Pg3x 



; nibblize byte in Areg befare starting 

t 2 

; use byte in Xreg 

• 4 



wait for handshake bit, then write data in Areg 

4 

2.3 

4 
6 



; Cade te write aut first 254 bytes af Page 93 

; 3 

; 4 

; 2.3 



A^ UCC OJ 



XK)7| 


60 0008 




sta 


06M 


4 


14 


Morst eesc possible 


IBOAl 


















PACE 


- 83 LISA 


FILE: NRITE16 


TEXT 


Seny DRIVER FOR LISA 






IBOAi 


6E 


0203 




ld» 


Page03«2,y ; 


4 


18 




IBODi 


60 


0010 




Ida 


Nibl.a 


4 


22 




IBlOi 


85 


6C 




sta 


Sv3 


3 


25 




1B12I 


8A 






tKa 




2 


27 




1B13I 


4A 






Isr 


a 


2 


29 




1614i 


4A 






l»r 


a 


2 


31 




IBlSi 


85 


6E 




sta 


Teapl 


3 


34 




1B17I 


6E 


0103 




ld» 


Pegc03«l,y j 


4 


38 




IBlAl 


60 


0010 




Ida 


Nibl.K 


4 


42 




IBlDl 


85 


66 




sta 


Sv2 


3 


45 




IBlFi 


8A 






tKa 




2 


47 




IB20I 


29 


CO 




and 


•OCO 


2 


49 




1B22I 


05 


8E 




era 


Tenpl 


3 


52 




1B24I 


4A 






Isr 


e 


2 


54 




1B25I 


A6 


60 




IdK 


Sv4 


3 


57 


61-14 X 47 


lB27i 
1B2AI 
lB2At 


8E 


0D08 




StK 


06H 


4 


61 


Mritc lest byte ef previous loop 


4A 






Isr 


e 


2 


2 




1B2BI 


85 


6E 




sta 


Tempi 


3 


5 




lB20i 


69 


0003 




Ida 


Pagc03, y 


4 


9 




1B30I 


29 


CO 




ond 


•OCO 


2 


11 




1B32I 


05 


6E 




era 


Te«pl 


3 


14 




1B34I 


4A 






Isr 


o 


2 


16 




1B35I 


4A 






Isr 


a , 


2 


18 




lB3ei 


AA 






tax 




2 


20 




1B37I 


60 


0010 




Ida 


Nibl.K 


4 


24 




1B3AI 
1B301 


80 


OD08 




sta 


06H 


; 4 


28 


Cenipesite ef 3 bytes 


lB3Dt 


6E 


0003 




Idx 


Pege03, y 


; 4 


4 




lB40t 


C8 






iny 




; 2 


6 




1B41I 


C8 






iny 




; 2 


8 




1B42I 


60 


0010 




Ida 


Nibl.K 


; 4 


12 




1B45I 


AE 


0C08 


S85 


Idx 


06L 


' 4 


16 




1B48I 


lOFe 




bpl 


S85 


2,3 


18 




1B4AI 


80 


0D08 




sta 


06H 


, 4 


22 




lB4Di 


















iB4D( 


A5 


66 




Ida 


Sv2 


, 3 


3 


Seeend byte ef loop 


1B4FI 


A6 


6C 




Idx 


Sv3 


» 3 


6 


Third byte 


1B51I 


08 






iny 




; 2 


8 




lB52t 


CO 


FE 




epy 


•Pg3Len 


» 2 


10 




16541 


DOAA 




bnc 


Pg3 


► 2.3 


12 


feteh rest of 254 bytes 


1B56I 


















16561 


20 


EOIA 




J5*- 


MrAX 




26/S 


write Nib Is in A end X(Sv3) 


16591 


AE 


FF03 




Idx 


Page03«0FF 




10 




165CI 


60 


0010 




Ida 


Nibl.K 




14 




165FI 


85 


6C 




sta 


Sv3 




17 




16611 


A5 


5F 




Ida 


Cp6y02 




20 




16631 


20 


ECIA 




jsr 


HrNibl 




26/6 




16661 


AE 


rE03 




Idx 


PegeOa^OFE 




10 




16691 


60 0010 




Ida 


Nibl.K 




14 




166CI 


20 


EOIA 




Js»- 


NrAX 




20/6 




166F1 


















166FI 


AO 


61 




Idy 


•CkSuMl 


\ 2 


8 


ebsolute eddr ef 3 eksmii bytes 


16711 


84 


43 




sty 


InxPtrL 


\ 3 


11 




16731 


A5 


60 




Ida 


CpCkSuM 


1 3 


14 




PACE 


- 84 LISA 


FILE: MRXTE16 


.TEXT 


Seny DRIVER FOR LISA 






16751 


AE 


0C08 


895 


Idx 


06L 


» 4 


18 




16781 


lOFB 




bpl 


S95 


» 2,3 


20 




ie7A| 


80 


0006 




sta 


06H 


; 4 


24 




16701 


AO 


00 




Idy 


•0 


; 2 


2 


3 bytes to trensfer 


1B7FI 


61 


43 


$99 


Ida 


•I nKPtPL, y 


; 6 


8 




16811 


20 


E81A 




Ja«- 


Up6ytc 


; 3 


11/6 




16841 


C8 






iny 




; 2 


8 




16851 


CO 


03 




epy 


•3 


; 2 


10 




16871 


D0F6 




bnc 


S99 


i 2.3 


12 




16891 












; fall 


thru & 


write final BitSlip aiarks & end 


16891 


AS 


73 




Ida 


DatHk4 


; 3 






168BI 


20 


ECIA 




Jsr 


WrNibl 


; 6 






168Ct 


A5 


74 




Ida 


DetMkS 


\ 3 






16901 


20 


ECIA 




j^r 


MrNibl 


i 6 






1B93I 


















16931 


1693 


ShtOff 


.equ 


♦ 


i i^ritc 


2 6its 


lip end return ^rUnderRun 


16931 


A9 


FF 




Ida 


•OFF 


; 2 






16951 


20 


ECIA 




J»»- 


HrNibl 


( 6 






16981 


20 


ECIA 




J«»" 


MrNibl 


; 6 






169Bt 


18 






clc 




; 2 






169Ci 


AO 


0C08 




Ida 


06L 


; 4 


6it6 


« undcrrun bit 


169F| 


29 


40 




end 


•40 


; 2 


leave enly 6it6 


leAli 


00 


*^ 




bnc 


S38 


5 2.3 


If « 


1 then no ur%dcrr%ir\ eceurred 


16A3i 


A9 


IF 




Ida 


•ErrNrt 


; ebscurc error eedc • 


16A5I 


38 






sec 




; 2 






16A1« 


03 
















ieA6i 


80 


0008 


838 


sta 


06H 


I 4 


Put 


into Write Loed state 


16A9i 


AE 


0E08 




Idx 


07L 


; 4 


Now 


into Hritc Protect - Sense stotc 


16ACt 


60 






rts 




I 6 






16ADt 


















IBADi 


















IBAOl 






. INCLUOE FORMAT 








PACE 


- 85 LISA 


FILE: FORMAT. 


TEXT Sany DRIVER FOR L 


ISA 







14 Dec 9J 



AA/^dlVfi 1 . 



IBADi 




IBADt 




IBADl 




IBADl 




IBADl 




IBAOl 




IBADl 




IBADt 




IBADl 




IBADl 




IBADl 




IBADl 




IBADl 




IBADl 




IBADl 




IBADl 




IBADl 




IBADt 




XBADI 




IBADl 




IBADl 




IBADt 




IBADl 




IBADt 




IBADt 




IBADl 




PACE 


- 86 LISA 


IBADt 




IBADl 




IBADl 


XBAD 


IBADl 


XBAD 


IBADl 


20 *♦♦♦ 


IBBOl 


A9 07 


1B62I 


85 2B 


IBB4| 


20 ♦♦♦♦ 


1BB7| 


BO** 


1BB9I 




1BB9I 


20 84X7 


IBBCl 


A4 23 


IBBEl 


B9 46XX 


IBCll 


85 67 


1BC3I 




lBC3i 


20 •♦•♦ 


1BC6I 




XBC6I 


AS 3X 


IBCSi 


C9 05 


IBCAi 


FO** 


IBCCj 




IBCCI 


A5 OA 


XBCEl 


C9 02 


XBOOl 


OO** 


XBD2| 


A9 20 


XBD4I 


8S 33 


XBD61 


20 ***♦ 


XBD9I 


A9 00 


XBDBl 


85 33 


XBDDl 




XBDO* 


oe 


XBDDl 


E6 35 


XBDFi 


AS 35 


XBEll 


C9 50 


XBE3I 


90D4 


XBESI 


C6 35 


XBE7I 


DO** 


XBE9I 




XBE9I 


1BE9 


XBE9I 


A9 4F 


XBEBi 


B5 35 


XBEDf 


IBED 


XBEDl 


20 **** 


XBFOl 


BO** 


XBE7^ 


09 


XBCA* 


26 


iBr2i 


XBF2 


iBr2i 


20 64X7 


XBFSl 


A4 23 


XBF?! 


B9 461X 


XBFAj 


85 67 


XBFCl 




XBFCl 


20 **** 


IBFFi 


BO** 


PACE 


- 87 LISA 


XCOll 




XCOli 


A5 3X 


XC03I 


C9 05 


XCOSi 


BO** 


XC07I 




XC07I 


A5 OA 


XC09t 


C9 02 


XCOBi 


DO** 



.PACE 



RECISTERS 
IN 

All > 
OUT 

All « 



FORMAT 



ANY VALUE 
DESTROYED 



CALLS 



CLRBUF 

SELSIDE 

RECALL 

MRITRK 

VERTRK 

SCEKALT 

MRSYNTRK 

WA0R16 

RDAOR 

READ16 

VFYCKSUM 

PRENIB 



Clears S24 byte buffer and ather variables 

Selcets side 

Reeallbrates disk te apt leal Index signal 

Mr ties na. af sectars In TEHPSEC 

Verifies na. af seetars in TEMPSEC 

Seeks ta traek in XIOB^TRACK and sets speed 

Writes bits lip fT*s and A9's then seetar 

Writes seetar n, bath header and data fields 

Read seetar header 

Reads data fields 

Verifies eheeksua that was read 

Prenlbbllses certain bytes far timing purpases 



FILE: FORMAT. TEXT Sany DRIVER FOR LISA 



.PACE 

FORMAT .EOU * 

FORMTRAK .ECU ♦ 

JSR CLRBUF 

Ida 97 

sta FaitCap 

Jsr ReCalMtr 

bes FarmRts 

FORMTOP JSR SEEKALT 

Idy CurC lass 

LDA SECPRTRK. Y 

STA TEHPSEC 

JSR MRITRK 





LDA 


I10B*C0MMAN0 




CMP 


•FRMTTRK 




beq 


VTOO 




Ida 


Xab^NaSldes 




CAP 


•2 




bne 


S39 




Ida 


•20 




sta 


XIeb*Side 




Js»- 


Mr iTrk 




Ida 


•00 




sta 


IIob«Side 


839 


INC 


I10B*TRACK 




LDA 


XIOB^TRACK 




CMP 


•MAXTRACK^X 




BCC 


FORMTOP 




dec 


Ilab^Traek 




bne 


VTOO 


VERIFY 


.EOU 


♦ 




Ida 


•MaxTraek 




sta 


Xlab^Track 


VERTRACK 


.EOU 


# 




Js*- 


ReCalMtr 




bcs 


FarwRts 


VTOO 


.equ 


♦ 




JSR 


SEEKALT 




Idy 


CurC lass 




LDA 


SECPRTRK. Y 




STA 


TEMPSEC 



; FORMAT entry paint 

i Clear the buffer te be written 



; Turn an natar & start fram a knawn paint (track 0) 

; abart upan errar fram Reeal 

; Ca te the traek in XIOB^TRACK & set speed 

i Feteh number af sectars in current track 

; SAVE IT FOR MRITRK ROUTINE 

; Mritc a track full af sectars 

; If a farmat track 

; then we're dane*e«it the rautine 

; Cammand « FarmatTrack (5) 

i X « single side, 2 « daublc sided 

; if c> 2 then fa ta iner ta next traek 



; naw write the seeand side 
S restare ta side 90 



; UNTIL ME RUN OUT OF TRACKS 

; sk ip turn Ing the meter an 

; VERIFY entry paint 

; fram Inside af disk ta auter edge 

; Turn an mater & start fram a knawn paint (track 0) 

; abart upan error fram Reca 1 

; Ca ta the track in IIOB^TRACK & set speed 

; Fetch number af seetars in current traek 

; SAVE IT FOR MRITRK ROUTINE 



JSR VERTRK 

BCS FORMERR ; Error, cult fram rautine 
FILE: FORMAT. TEXT Sany DRIVER FOR LISA 



LDA IIOB^COHMAND 
CMP WFrmtTrk 
bcs $41 



Ida 


Iab<»NoSide 


emp 


•2 


bne 


S39 



If a verify track 

then we're dane-exit the rautine 

Cammand « FarmatTrack (5) ar VcrifyTrack (6) 

X « single side, 2 « dauble sided 



ICODt 


A9 20 


icon 


65 33 


icm 


20 ♦♦♦♦ 


1C14I 


B0»* 


1CI61 


A9 00 


lC18t 


85 33 


ICIAI 




KOB^ 


OD 


IClAi 


C6 35 


IClCl 


X0D4 


IClEl 




1C05* 


17 


IClEl 


18 


IClFi 


60 


1C20I 




1C14* 


OA 


IBFF* 


IF 


lC20t 


A5 35 


iC22| 


60 DlOl 


lC25i 


AS 33 


IC27I 


29 20 


lC29t 


ro»* 


1C2BI 


A9 01 


1C29* 


02 


1C2DI 


60 D201 


1C30I 


A9 15 


IBFO* 


40 


1BB7* 


79 


1C32I 


60 


1C33I 


- 


1C33I 


1C33 


1C33I 


00 05 OA OF 


1C37I 


14 19 IE 23 


lC3Bi 


28 2D 32 37 


XC3FI 


3C 41 46 4B 


1C43I 




IC43I 


1C43 


1C43I 


6C 63 SA 51 48 


1C48I 




1C48I 




IC48I 




1C48I 




1C48I 




1C48I 




IBD7* 


481C 


1BC4* 


481C 


1C48I 


1C48 


PACE 


- 68 LISA 


1C48I 


20 E612 


1C4BI 


AS 67 


lC4Dt 


65 78 


IC4FI 


4A 


iCSOl 


69 00 


lC52t 


65 76 


1CS4I 


A9 00 


lC56i 


65 77 


lC58i 


65 75 


iCSAi 


65 34 


ICSCi 




ICSCi 


20 0012 


ICSFi 


C6 76 


IC6I1 


E6 75 


1C63I 


A6 77 


iC65| 


ro»» 


IC67I 


A2 FF 


IC65* 


02 


1C69I 


E8 


IC6A1 


66 77 


ICSCi 


B5 75 


lC6Et 


65 34 


1C70I 


F6 75 


1C72I 


20 0412 


1C75I 


CS 78 


IC77I 


OOEA 


1C79I 




1C79I 


A9 00 


1C7BI 


65 34 


IC7DI 


20 4912 


IC8O1 




IC8O1 


BO** 


ice2t 


AS 5D 


lC84i 


C9 08 


lC86i 


DO** 


lC88i 




iC88| 


A4 2B 


IC8A1 


B9 331C 


iceoi 


CS 5C 


1C8F1 


BO** 


IC91I 




lC91t 


A4 23 


IC93I 


79 431C 


1C96I 


CS 5C 


1C98I 


BO** 


1C9AI 





S39 



S41 



•20 

Ileb«Sldc 

VerTrk 

ForwEpr 

•00 

IIeb«Stde 



XI0B*TRACK 
VTOO 



FORHERR 



S17 



Ido 
8ta 
jar 
bcs 

Ida 
sta 



dec 
bpl 

CLC 
RTS 



LDA XXOB*TRACK 

STA TRKNUMB 

LDA XXOB*SIDE 

and 920 

beq SX7 

Ida m\ 



naw verify side 1, track k 
Error, evit from routine 



STA 
LDA 



SIDNUM6 
•SERRFRMT 



Current track number 
Save for host* a usage 
Current side 
leave bit 5 — side bit 



Save far host's usage 
Foraiat error eodc 



FORMRTS RTS 

TeoSm 1 . equ ^ 

.byte 0., S. • 10., 15. 

.byte 20.. 25., 30., 35. 

•byte 40., 45., 50., S5. 

.byte 60., 65., 70., 75. 

JustRit .equ ^ 

.byte 106., 99., 90., 61., 72. ; 



not used 
4:7 
6:11 
12:15 



sectors in e loss * 9 bytes per 



sector 



MRITRK Mill physically format o disk in o 2: 1 interleave. It Mill 
Mrite Sector , Sector X, Sector 1, Seetar Y, etc. 



MRITRK 



.ECU 



FILE: FORMAT. TEXT Sany DRIVER FOR LISA 



; Entry for Mriting e track of 524 byte sectors 



S23 



S35 



J»»- 


SelSide 


LDA 


TEMPSEC 


STA 


TOTCNT 


LSR 


A 


ADC 


•0 


STA 


HIHCNT 


LDA 


•00 


STA 


CNTPTR 


STA 


LOWCNT 


STA 


XI0B*SECT0R 


JSR 


MRSYNTRK 


DEC 


TOTCNT 


INC 


LOMCNT 


LDX 


CNTPTR 


BEQ 


S35 


LDX 


•OFF 


I NX 




STX 


CNTPTR 


LDA 


LONCNT.X 


STA 


IIDB^SECTOR 


INC 


LO«CNT,X 


JSR 


MADR16 


DEC 


TOTCNT 


BNE 


$23 


Ida 


•00 


sta 


IIob*Sector 


J*"" 


RdAdr 


bcs 


DecrCl 


Ida 


RangeH 


emp 


•RdAdrTmt 


bnc 


IncrCl 


Idy 


FmtCap 


Ida 


TooSml,y 


emp 


RangcL 


bcs 


DecrCl 


Idy 


CurClass 


ode 


JustRit, y 


emp 


RangcL 


bcs 


WrTkOonc 



; Select proper side 

; Totol number of sectors on current track 

; In it totol eount of sectors Mritten 

; Divide by 2 ond put remoinder into the eorry 

; Round up by odding carry 

; In it counter for high sector values 

; In it pointer for whieh eount to use 
; For counting up from Seetar 
; Start m/ seetar 

Write 20 usee nibbles ond A9*s before sector 
Subtract X from total sector eount 
Increment value te next Iom sector ( X ) 
Pointer to Mhich ent to use -- Iom or high 
If * then inerement to X 
If « X then decrement te 



Fetch seetar number 

Increment ta next seetar number 
Mritc address and data fields 
Decrement tatal sector ent 
When « then all scetars are Mritten 



read setr ond eaunt bytes 



if « then less than 256 bytes Mere eaunted 
> 256 bytes se increase Inter-secter gap 



a > harmal ent Mith current Cap ameunt 



A > RangcL sa all ak 



14 Dee 


63 


icee* 


12 


1C9A| 


A9 OE 


1C9CI 


C5 2B 


1C9CI 


FO** 


ICAOi 


E6 2B 


lCA2i 




1C9E* 


02 


1C98* 


08 


1CA2I 


1CA2 


PAGE 


- 89 LISA 


ICA2I 


60 


1CA3I 




icer* 


12 


1C80* 


21 


ICA3I 


1CA3 


1CA3I 


A9 04 


ICASl 


C5 2B 


1CA7I 


F0F9 


1CA9I 


C6 2B 


ICABl 


D09B 


ICAOl 




ICADl 




ICADt 




ICADt 




1C12* 


AOIC 


IBFD* 


ADIC 


ICAOt 


ICAD 


ICAOi 


20 £612 


XCBOl 


A9 00 


1CB2I 


85 34 


1CB4I 


80 DOOl 


1CB7I 


AS 19 


ICBSi 


85 26 


ICBBi 




ICBBt 


20 4912 


ICBEi 


BO** 


ICCOi 


20 0018 


lCC3i 


BO** 


ICCSi 


20 7419 


ICCSi 


BO** 


ICCAt 


E6 34 


ICCCi 


A5 34 


ICCCi 


C5 67 


iCOOi 


00E5 


1C02I 


AD DOOl 


ICOSl 


DO** 


1CD7I 


18 


1CD5* 


01 


ICD8I 


60 


IC09I 




1CC8* 


OF 


XCC3* 


14 


ICBE^ 


19 


lCD9i 


C6 26 


ICOBi 


DODE 


ICOOi 


AC DOOl 


ICEOl 


AS 34 


iC£2| 


99 0301 


ICESi 


EE DOOl 


iCE8| 


DOEO 


ICEAi 




IBAE* 


EAIC 


ICEAi 


ICEA 


ICEAi 


A9 00 


ICECl 


A8 


PACE 


- 90 LISA 


ICEDi 


99 0002 


ICFOl 


99 0003 


icr3i 


C8 


lCr4| 


00F7 


1CF6I 


AO OB 


1CF8I 


99 F401 


ICFBi 


88 


ICFCi 


lOFA 


ICFEl 


85 61 


iOOOl 


85 62 


10021 


85 63 


1D04| 


4C 7715 


10071 




10071 




1007} 




PACE 
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10071 




10071 


1D07 


10071 


C9 OD 


10091 


BO** 


lOOBi 


A8 


lOOCl 


A9 00 


IDOEi 


69 02 


IDlOi 


88 



IL2/SYSP:SY.TEXT 



Poge 039 



InerCl 



cinp FwtCap 
beq MrTkDenc 
Ine FmtCDp 



; li»it to 14. self syne groups of five 
; Iner eount for next troek 



MrTkOone . equ * 
FILE: FORMAT. TEXT Sony DRIVER FOR LISA 

rts 



DeerCl 


.cqu 


♦ 




Ida 


•4. 




cmp 


FmtGap 




beq 


MrTkOone 




dee 


FMtGop 




bne 


Mr iTrk 


i 






;-- 






VERTRK 


.cqu 


♦ 




J*'- 


SelSlde 




LDA 


•00 




STA 


IIOB^SECTOR 




STA 


SCTRCNT 


VFYTRKl 


LDA 


MAXRETRY 




STA 


RETRYCNT 


VFYTRK2 


JSR 


ROADR 




BCS 


VFYERR 




JSR 


READ16 




BCS 


VFYERR 




JSR 


VFYCKSUM 




BCS 


VFYERR 


VFRTRY 


INC 


IIOB^SECTOR 




LDA 


IIOB^SECTOR 




CMP 


TEMPSEC 




BNE 


VFYTRKl 




LDA 


SCTRCNT 




BNE 


S74 




CLC 





; MiniMUM gap is 4 counts of 5 20usee bytes 



; Seleet proper side 



; Rood sector address field 

; Read sector data 

; Verify the checksum 

; Must be 

; If equal then carry Mill be set 



$74 RTS 



VFYERR DEC RETRYCNT 

BNE VFYTRK2 

LDY SCTRCNT 

LDA IIOB^SECTOR 

STA SCTRSAV, Y 

INC SCTRCNT 

BNE VFRTRY 



Current sector number 
Save for host usage 

Go to next sector and try again 



CLRBUF . equ * 

LDA 900 
TAY 
FILE: FORMAT. TEXT Sony DRIVER FOR LISA 



; Clear the tatal buffer area 



SOS 



SIO 



STA 


PAGE02, Y 


STA 


PACE03, Y 


I NY 




BNE 


SOS 


LDY 


•BUFR12S2 


STA 


BUFR12, Y 


DEY 




BPL 


SIO 


STA 


CKSUMl 


STA 


CKSUM2 


STA 


CKSUM3 


JMP 


PRENIB 



; Zero part of the data buffer 

; Zero the rest of the data buffer 



; Far 12 byte header buffer 

; Clear the three checksum bytes 

; Create S composite bytes & return to caller 



.INCLUDE Reeal 
FILE: RECAL.TEXT Sony DRIVER FOR LISA 



.PACE 

ClcScDly .cqu * 

cmp tflS. 

bcs S43 

tay 

Ida OO 
S31 ode 92 

dcy 



if 'a' >« 13 then only wo it for hcod settling 

seve number of steps 

ecC already « *0' 

use 10 msec/step instead of 12 msec 



14 Dee 83 



42/SYSP:SY.TEXT 



P«9e 040 



IDllI 

1D13I 

IDlSl 

10171 

IDiei 

lOlAi 

1D09* 

IDlCl 

IDlCl 

lOlA* 

lOlFi 

1D21I 

1D23I 

1D24I 

10241 

10241 

10241 

IBCC* 

1BB5« 

10241 

10241 

10261 

10281 

102BI 

102BI 

1026* 

102BI 

102Bt 

10201 

102r| 

10321 

10331 

10351 

10371 

103Ai 

103CI 

103CI 

10411 

10431 

10451 

10471 

104At 

104AI 

104CI 

104Ct 

IDSll 

PACE • 



OOFB 
85 6E 
AS 15 

38 
C5 6E 

B0*» 
11 
A5 16 

60 
03 

C5 16 
90r9 
60 



2410 
2410 
1024 
AS 21 

00** 
20 4113 

102B 
03 

102B 
AO 00 
84 22 
20 9213 
88 

84 OC 
A2 00 
20 S013 
A2 04 
86 79 
20 6313 
C6 79 
D0r9 
A9 08 
20 ♦♦♦♦ 

A2 64 
86 79 
20 1313 
B0*» 
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$43 
$65 



bne 
sta 
Ida 
sec 
9bc 
bes 


$31 
Teapl 

SeOly 

Tewpl 
$65 


Ida 
rts 


HcaOclay 


c«p 
bee 


HcaOclay 
$43 



10S3I 

10561 

1D58( 

IDSAi 

IDSCt 

1051 ♦ 

IDSCi 

105EI 

lOSll 

10631 

10651 

10671 

10691 

106Ci 

I06rt 

1071i 

10731 

10751 

10781 

107BI 

107EI 

10801 

10821 

1083t 

105A« 

10831 

10851 

1067* 

10871 

1085* 

1089i 

108B1 

108Ci 

108Ei 

PACE 



20 6313 
C6 79 
D0F4 

ro*» 

09 
A2 01 

20 5013 
A2 64 
86 6r 
C6 BF 
FO** 
20 6313 
20 1313 
B0F4 
A9 64 
C5 6F 
20 0710 
20 •••♦ 
20 ▼♦♦♦ 
A2 00 
86 OC 
60 

27 

A9 10 
DO** 
IE 

A9 00 
02 

85 OB 
38 
BOFO 
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RcCalHtr 


.eou 


♦ 




Ida 


MtrOn 




bnc 


RcCall 




Jsr 


TMOn 


RECALBRT 


.eou 


* 


RECALL 


.EOU 


♦ 




Idy 


•0 




»ty 


CurTrack 




Jsr 


SetSpdy 




dey 






sty 


HestSeek 




IdK 


•InMard 




jsr 


SetOretX 




IdK 


tmclStep 




StK 


Teiiip3 


$06 


jsr 


OaStep 




dee 


TeiRp3 




bne 


$06 




Ida 


•TurnRnd 




J8r 


Ma it 




Idic 


VTaiOutRe 1 




StK 


Teiiip3 


$17 


i^r 


RcadXndK 




bes 


$21 


RECAL. TEXT Son 


y ORIVER r 




jsr 


Da Step 




dee 


Teiiip3 




bne 


$17 




beq 


$72 


$21 


IdK 


•OutHard 




Jsr 


SetOretX 




IdK 


•TwOutRe 1 




StK 


Teinp2 


$43 


dee 


Teaip2 




beq 


$78 




Jsr 


DeStep 




Jsr 


ReadlndK 




bes 


$43 




Ida 


VTiiOutRc 1 




sbc 


Te«p2 




i^r 


CleScOly 




J««- 


Wait 




Jsr 


SpdChk 


$68 


IdK 


•0 




StK 


HestSeek 




rts 




$72 


Ida 


•OErrTkO 




bnc 


$82 



$78 
$82 



Ida sOErrCal 



; If ecC'l then result is pesitivc 
; assume only wait for head settling 

; sec if head settling ti«e also Included 



RECALBRT 

; if meter is net an then turn it en $ wait 400ms 
; ENTRY POINT FOR RECALBRT 

; set CurClass to *0* also 
; tell 68K that I am seeking 



3 steps away from track 00 for bad pewer supply 
step away from track 

loop 2 tines for 3 toto 1 steps 

must wait for stepper to eome to it*s senses 



timeout if unable to leove track being True 

rood troek I ine 

if eeC-1 then /TrkOO is false 



; step away fram Trk 00 ( direct ian is already set ) 

; mn* iaum af 80 steps 

; laep while less than 80 steps 

; abert upan underflaw 



; seek away fram spindle taward Track 00 

; far each step save a caunter 
S abart upan underflaw 



; result Mill be pasitive & » number af steps 

; cale speed ehangc delay time, return in *A* 

; now wait about 150 ms 

; eheek/adjust the speed at track & return error 

; Done seeking 



; unoblc to leave track behind 
; timcaut during rccal constant 



sta Iob«OrvError 

sec 

bes $68 ; cleanup flag then ok it 



FILE: RECAL.TEXT Sony ORIVER FOR LISA 



108Ei 
108Et 

108EI 108E 
108Ei 1D8E 
108EI 60 
108Fi 
108FI 
PACE 



.PACE 

CLPENTY .EOU ♦ 
CLAHP . EOU ♦ 
RTS 



; Entry point used by clamp eemmand 
; ENTRY POINT FOR CLAMP 



- 94 LISA 



FILE: RECAL.TEXT Sony ORIVER FOR LISA 



14 Dec S3 



42/SVtP:SY.TEXT 



^•ge 041 



loen 




.PACE 






loeri 




; ^* 






loeri 










IDSFi 








USWAIT 


1D8FI 

loeri 

IDSFi 
















♦ THE FOLOWINC COOES ASUMES ♦ 


loeri 
loeri 

1D8FI 








♦ A CYCLE TIME OF 0. 5 USEC ♦ 










iDsri 




\ DELAYS A SPECIFIED NUMBER OF 100 USEC INTERVALS FOR TIMINC PURPOSES 


1D8FI 




; A CALL TO USWAIT TAKES E X A C T L Y (A-REC ♦ lOOUSEC ^ TO COMPLETE. 


lD8Fi 




; INCLUOINC THE 


JSR-RTS, THERFORE THE FOLOWINC CODE TAKES 301 USEC TO 


108FI 




; EXECUTE: 




1D8FI 










108FI 








LDA »3 1 USEC ( 2 CYCLES) 
JSR USWAIT 300 USEC (600 CYCLES 


1D8FI 








1D8FI 




; -- 






1D8FI 










1D8FI 




RECI STEPS 




1D8FI 




; IN 






IDBFi 






A « 


NUMBER OF 100 USEC INTERVALS TO DELAY 


108FI 






X « 


ANY VALUE 


IDdFi 






Y « 


ANY VALUE 


1D8FI 




OUT 






1D8FI 






A « 


DESTROYED 


ID8F1 






X « 


DESTROYED 


IO8F1 






Y « 


UNCHANGED 


ID8F1 




-- 






IO8F1 










IO8F1 


1D8F 1 


Akllt^l 


• EOU 


• ; Alternate entry point for DoStep 


108F| 
1D91I 
10911 


AS IB 




LDA 


StpDly ; Lead delay tlae 


1D91 { 


IISMAIT 


.EOU 


♦ 5 ENTRY POINT FOR USWAIT 


10911 


A2 23 




LDX 


•023 




2 
2 


1D93I 


CA { 


JSWAITl 


DEX 






10941 


Doro 




BNE 


USWAITl 




3.2) 


10961 


A2 26 




LDX 


V026 




2) 


10981 


EA 




NOP 






2 


10991 


38 




SEC 




t I 


2 


109AI 


E9 01 




SBC 


•001 




2 


109Ct 


OOFS 




BNE 


USWAITl 




3,2) 


109Ei 


EA 




NOP 






2) 
6 


109FI 


60 




RTS 




. \ 


lOAOi 










PACE 
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lOAOi 




PACE 






lOAOt 


' 


♦♦ 






lOAOi 


1 








lOAOl 


• 






WAIT 


IDAOi 


J 








IDAOt 


1 


WAIT < 


A-REG TINES 5 MILLISECONDS. 


IDAOt 










lOAOi 


• 


•- 






lOAOl 










lOAOi 


• 


RECI STEPS 




lOAOl 




IN 






IDAOl 


1 




A « 


NUMBER IF S MSEC INTERVALS TO WAIT 


lOAOl 


1 




X • 


ANY VALUE 


lOAOl 


\ 




Y « 


ANY VALUE 


lOAOl 




OUT 






lOAOi 






A » 


DESTROYED 


lOAOi 






X « 


DESTROYED 


lOAOi 






Y « 


•0* 


lOAOl 


• 








IDAOl 




CALLS 






lOAOl 






USMAIT 


WAIT A-REC NUMBER OF 100 USEC INTERVALS 


lOAOt 




-- 






lOAOl 










IDAOl 










IDAOl 










1079 ♦ 


AOID 








1048* 


AGIO 








IDAOi 


IDAO 1 


4AIT 


.EOU 


♦ ; ENTRY POINT FOR WAIT 


lOAOl 


A8 




TAY 




IDAll 


A9 32 1 


pJAITl 


LDA 


•50. ; CALL USWAIT FOR SO^lOO » SOOO USEC 


1DA3I 


20 9110 




JSR 


USWAIT 


10A6i 


88 




DEY 




10A7i 


OOFS 




BNE 


WAITl 


1DA9I 


60 




RTS 




IDAAj 










IDAAl 










IDAAl 




INCLUDE Npwm 




PACE 


- 96 LISA FILE: 1 


1PMM. TEXT Sony 


DRIVER FOR LISA 


IDAAl 




pogc 






IDAAl 




♦ ♦ 






IDAAl 




.. 






IDAAl 










IDAAl 


IDAA 


rimlt 


.cqu 


♦ 


IDAAl 


A9 OS 




Ida 


•S ; t imc 6 pulses 


IDACt 


SS SF 




sta 


Te«p2 


IOAE4 


18 




clc 


5 * 


should stay e lear unless explicitly set 



lOAFi 
10621 
10641 
10671 
10691 
106Bt 
10601 

I06ri 
loeri 
loeri 

106FI 
106F| 

loeri 

10C2I 

10C4I 

10C7I 

10C9I 

lOCBi 

lOCDi 

10C7* 

10C2* 

1067^ 

1062 ♦ 

lOCDt 

lOCDi 

lOCEt 

lOCO^ 

loeo* 

lOCEl 

lOCEi 

lODOl 

10D2I 

IOCS* 

1065* 

10021 

10D2I 

10041 

1004* 

1000* 

10061 

10061 

10081 

lOOAi 

lODAi 

lOOBl 

lOOOi 

PACE • 



20 
60 •• 
20 *♦♦♦ 
BO** 
A9 00 
85 5C 
85 50 



20 ♦♦** 
60** 
20 *•*♦ 
60** 
C6 6F 
10r2 

04 
09 
14 
19 

loco 

60 

CEIO 
CCIO 
lOCE 
24 45 

SO** 

0210 

0210 

1002 

24 46 

70** 

00 

04 

1006 

AO 00 

A2 AO 

88 

00** 

CA 
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Jsr NtZere 

bcs RsOut 

Jsr RsEdgc 

bcs RsOut 

Ida 90 

sta RangeL 

8ta RangeH 



1 laak 


far \om 


1 2.3 


10 


I 8 


8 


; 2.3 


10 


{ 2 


12 


; 3 


15 


I 3 


18 



, then first high 

no edge Mtthin tieieaut per iad 

naw at knewn laeatian 

fia edge with in timeaut parted 

sera bath bytes af eaunter 



MtZera t RsEdgc bath have 36 eye les( 18.0 usee) per tiek af RangeL: H 



S20 



RsOut 



MtZera 



RsCdgc 



RsEd 



SIO 



isr MtZera 

bes RsOut 

jsr RsEdgc 

bes RsOut 

dee Te«p2 

bp 1 S20 



. cqu 
rts 



.cqu * 
bit KOOO 
bve RsEd 



. cqu * 
bit KOFT 
bvs RsEd 



. cqu * 
Idy 900 
ld» aOAO 



; laak far law 

; 2,3 

; Malt far next edge an pulse 

; 2.3 

; 5 Mhen less than sera then exit 

: 2.3 15*(2^2«50) ■ 180 eyeles 



i 6 



; 3 

; 3 



; 2 
; 2 



dey 

bne S20 
6en 
FILE: NPMM.TEXT Sany ORIVER FOR LISA 



2 
2.3 

2 



eomman exit paint 



eeV set to Zere 



laak for a rising edge 

eeV eq «« law, eeV eq 1 «« high 



10 eanstant tiaieaut far pulse caunt Ing 

2 

4,5 

6 



lOOEi 

lOEOi 

lOEll 

10E2t 

1006* 

10C2I 

10E3I 

10E4i 

lOOE* 

10E4t 

10E6t 

1DE8{ 

lOEAi 

lOECl 

10E6* 

lOECt 

lOEDt 

lOEEi 

lOEA* 

lOEEi 

lOTli 

10F3I 

10F5I 

10F6i 

10r7| 

lOFl* 

10r7| 

iDr9i 

1DF3* 

ior9i 

lOFBi 

lorei 

lOFBi 
lOFDi 
lOTFi 
lEOll 
1E03I 
1E03I 
1E031 
lEOSi 
1E07| 
lE09i 
lE09t 
lE09i 
1E09I 
lE09t 
lE09i 



00** 

38 

60 

05 
EA 
EA 

04 

E6 5C 
00** 
E6 SO 
DO** 

04 
48 
68 

02 

AD 0E08 

50** 

10** 

EA 

60 

04 

loro 

04 

90DF 

lOFe 

A9 05 
85 6E 
A9 00 
FO** 

1E03 
A9 01 
85 6E 
A9 14 







bne 
see 
rts 


830 


820 




nap 
nap 




S30 




ine 
bne 
ine 
bne 


RangeL 
840 

RangeH 
850 


840 




pha 
pla 




850 
860 




Ida 
bve 
bpl 
nap 
rts 


07L 
870 
890 


870 




bpl 


860 


890 




bee 


810 


ChkLrg 


.cqu 

Ida 

sta 

Ida 

beq 


•Lrge 
Tempi 
•MLaw 
ChkCaxifn 


ChkSml 


.cqu 
Ida 
sta 
Ida 


•S«al 
Tempi 
WlLom 


; ♦♦ 

; ChkCaaim 

; if H < TL 

; then AdjPlus 

; else if H > TL 



I 2.3 
; 2 



i 2 
i 2 



5 

2,3 
5 

3 



; 3 
; 4 



4 

2.3 

2,3 

2 
6 



2,3 
3 



8,9 

10 mhen Xreg « then return errar 



waste time 



14 

16.17 

21 

24 always taken ?? 



20 waste ware tiwe 
24 



28 

30,31 
32,33 
34 



6it7eO ««> taeh law, else tach high 

eeV«0 «»> laak far law 

if high then fall thru & exit 



33,34 if low then exit 

36 always taken?? -- 18.0 usec/laap 



; far speed adjustment 



; 1 



in wcc 9^ 



lt09| 




ICOdi 




ICOSt 




lC09i 




1E09I 




1C09I 




XE09I 




1E09I 




PACE 
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1E09I 




1E09I 




lE09i 




1E09I 




1E09I 




XE09I 




1E09I 




1E01» 


06 


1E09I 


XE09 


1E09I 


85 43 


lEOBi 


A5 23 


lEODj 


OA 


lEOEl 


A8 


lEOFi 


AS 5D 


lElll 


Dl 43 


1E13I 


90** 


lElSl 


DO** 


1E17| 


C8 


1E18I 


AS 5C 


lElAi 


OX 43 


lElCi 


90** 


lElEi 


FO** 


1E20I 


X8 


lElS* 


OA 


iE21| 


XE21 


1E21I 


98 


IE22I 


69 09 


1E24I 


A8 


1E25I 


Bl 43 


1E27| 


CS SO 


iE29| 


90** 


1E2BI 


DO** 


1E2DI 


C8 


1E2EI 


BX 43 


lE30i 


CS 5C 


iE32t 


90** 


XE34| 




XE2B* 


07 


XEXE« 


X4 


XE34I 


XE34 


XE34| 


X8 


XE3SI 


60 


XE36t 




XEXC* 


X8 


XEX3* 


2X 


XE3Si 


XE36 


XE36I 


A4 23 


XE36I 


B9 XO 00 


XE3B1 


6S 6E 


XE30I 


99 XO 00 


XE401 


38 


XE4XI 


60 


XE42i 




XE32* 


OE 


XE29» 


X7 


PACE 


- 99 LISA 


XE42t 


XE42 


XE42I 


A4 23 


XE44| 


B9 XO 00 


XE47I 


38 


XE46i 


ES 6E 


XE4AI 


99 XO 00 


XE4DI 


38 


XE4EI 


60 


XE4r| 




X07C* 


4FIE 


XE4F| 


XE4F 


XE4F| 


A9 XI 


XESXl 


85 44 


XE53I 


20 49X3 


XE581 


20 AAXO 


XE59t 


BO** 


XESBi 


20 FBXD 


XE5EI 


90** 


XE60I 


A9 65 


XE62I 


85 29 


XE64| 




XE64| 


C6 29 


XESSi 


FO** 


XE68i 


20 8FX3 


XESBt 


AS X5 


XESDi 


20 AOID 


XE70I 


20 AAXD 



; then TstHih 

eUe If L < TL 

then AdJPlus 
else If L « TL 
then OK 
TstHlh 

If H > TH 

then AdJMinus 
FILE: WPWM.TEXT Sony DRIVER FOR LISA 



else if H <> TH 
then OK 

else if L <» TH 
then OK 
else AdjHinus 



ChkCeiiHii 



TsHih 



ChlcOk 



AdJPlus 



• equ * 

ste InKPtrL 

Ida CurClass 

asl a 

tay 

Ida RangeH 

einp BlnsPtrL, y 

bee AdjPlus 

bne TsHih 

iny 

Ida RangeL 

cmp BlnKPtrL.y 

bee AdjPlus 

beq ChkOk 

ele 

.equ * 

tya 

ode VTb IjNip 

tay 

Ida •InxPtrL, y 

cup RangeH 

bee AdJMinus 

bne ChkOk 

iny 

Ida Bl nxPtrL, y 

e«p RangeL 

bee AdjHinus 



• equ * 

cle 

rts 



• equ * 

Idy CurClass 

Ida MSpdTbl.y 

adc Te«pX 

sta MSpdTbl,y 

see 

rts 



; ptr te whieh eenstraints ( law or high ) 
; eurrent traek elass (0;4) 
; *2 te address Mord array 

; high Must be greater than or equal te lawtablc,y 

; high byte Iom, aust spin slower 

; high byte greater — must see if w/in high boundary 

Must be greater than or equal to table.y 
high bytes « and low byte low - slow it down 
both bytes ore equal sa within range 

; eeC^X if branehed to here so add *X far net * iny' 

; 9. 

; index now points at high side of rongc 

; high byte aiust be <« high boundary 

; high byte is too high, spin disk foster 

; if <> then low byte Must be w/in ronge 

; point • low byte of boundary value 

; Low byte Must be <« high boundary 

; high byte is too high, spin disk faster 



; eeC « already 

; add odjustMont volue 



FILE: NPMM.TEXT Sony DRIVER FOR LISA 



AdjHinus 



SpdChk 



SXO 



.equ 


♦ 


Idy 


CurClass 


Ida 


MSpdTbl.y 


see 




sbc 


ToMpI 


sta 


MSpdTbl,y 


rts 




.equ 


♦ 


Ida 


•HHih 


sta 


InxPtrH 


J*'' 


SetTach 


Js"- 


TiMit 


bes 


SpdErr 


jsr 


ChkLrg 


bee 


SpdDanc 


Ida 


txox. 


sta 


Caunter 


dec 


Counter 


beq 


SpdErr 


Js"- 


SetSpeed 


Ida 


SeOly 


J5»- 


Nait 


J»»" 


Timit 



subtract odJustMsnt value 



; Main entry point for speed eheek 

; 'XX-K 

; Make sure in Taeh Sense Made 

; tiMc 6 pulses & abart an tiMeeut 

; Must be within ♦/- 2% 

; XOO tlMes tatal for ottOMpts te adjust 



; try for XOO tiMes & abort upon inablility ta adjust 



14 Dec 83 



42/SYSP:SY.TEXT 



IC73I 

IE75I 

IZ7B\ 

IE7AI 

IE7AI 

lETBl 

lETDl 

IE7F| 

XC82t 

1E84I 

1C87I 

1E89I 

1E8CI 

lE8r| 

1E91I 

1E70* 

IE73* 

1ES6* 

IE59^ 

XE91I 

1E91I 

lE93i 

1E82^ 

lESE^ 

1E93I 

XE93i 

1E94| 

XE94t 

PACE 



20 FBID. 
BOEA 

38 
ce 29 

20 03XE 
90 ♦♦ 
20 8FX3 
AS XS 
20 AOXD 
20 AAXD 
90E9 

X2 

XC 

29 

36 

XE9X 

A9 XB 

OF 
33 

XE93 
60 



XOO LISA 



be 3 SpdErr 

Jsr ChkLrg 

bcs SXO 

S32 sec 

dee Counter 

bcq SpdErr 

jsr ChkSml 

bee SpdDone 

Jsr SetSpeed 

Ida ScDly 

jsr Mali 

Jsr Tin it 

bee $32 



SpdErr .equ « 

Ida •SerrTait 



SpdDone . equ ^ 
rts 



FILE: HINEM.TEXT Sony DRIVER FOR LISA 



; loop until speed within ♦/- 2% 

I Bake sure error flog is set 

; try for XOO times & obort upon inablility to adjust 

; naw loop until within ♦/- . SX 



XE94i 
PACE 



XOX LISA 



.INCLUDE HIMEH 
FILE: HIHEM.TEXT Sony DRIVER FOR LISA 



XE94| 
XE94I 
XE94I 
XE94| 
XE941 
XE94I 
XE94| 
XE94I 
XE94I 
XE94t 
XFF3I 
XFTAl 
XFFBl 
XFFCl 
XFFEl 
20001 
20001 
2000t 
PACE 



.PACE 



HI MEM CONSTANTS 



HI MEM 
WELCOME TO VECTOR CITY! 



00 00 00 00 00 00 00 

43 38 33 4X SO 50 4C 

45 

4C 

32X4 

00 00 



CPYRT 
RSTJMP 



.ORC 
.ASCII 



02000-OOD 
-C83APPLE" 



.BYTE 04C 
.MORD RESTART 
.Byte 0. 



X02 LISA 



FILE: 



• END 

SYMBOLTABLE DUMP 



; LENGTH OF MICH MEMORY CONSTANTS 

; THI5*L SHOM EM ME MEAN BUSINESS* 

; A jump vector to the RESTART code 

i RESTART 6504 RESET VECTOR 

; Used to hold cheeksum for ROM verification 



AB - Absolute 
RF - Ref 
P6 - Public 



LB - Lobcl 

DF - Def 

PV - Privote 



UD - Undefined 
PR - Proc 
CS - Consts 



MC 
FC 



Mocro 
Func 



ADJMINUS 
B 000 X 
ADRMKX 
B X60F 
BADAODR 
B 00 AA 
BOOTH 
B OOOB 
CXBTOX 
B 0802 
CA2 

B XE03 
CKSUHI 
B X08E 
CLRBUF 
B X59E 
CHOI 
B 003F 
CMDNOERR 
B 0077 
COMMAND 
6 X92D 
CRTOP 
6 0022 
DATMKX 
B XCA3 
DELAY 
B 0009 
01 SL 
B X32X 
DRENA 
B X7X0 
ERRHDR 
B 08 IF 
FDIRL 



LB iE42| 

AB 0038i 
LB X906i 
AB 08XDt 
AB 02FFI 
AB 08041 
AB 006X1 
LB XCEAi 
LB X5A2I 
LB X5E4i 
AB OOOXl 
LB X93Bi 
AB 0070i 
AB 0069t 
AB 08X81 
AB 080A{ 
AB OOXEt 
AB 08XEI 



ADJPLUS 

ADRMK2 

BADADDR2 

BOOTL 

CX6T02 

CALL 

CKSUH2 

CLREXIT 

CM03 

CMDNUMB 

COUNTER 

CSERR 

DATMK2 

DERRCAL 

DNIBL 

DRIVE 

ERRLEN 

FMTCNFM 



LB XE36I 

AB 0039i 

LB X9XDI 

AB 08XCI 

AB 03001 

LB X739i 

AB 00621 

LB X747I 

LB X5C6I 

AB 00071 

AB 00291 

LB X8A4i 

AB 007X1 

AB OOODt 

LB XXOOt 

AB 0002t 

AB 00071 

AB 0007t 



ADMX 

A0RMK3 

BADADDR4 

BSCNT 

CXBT03 

CMKCOMM 

CKSUM3 

CLRIMSK 

CMOS 

CMDRTS 

CPBYOX 

CSERROR 

DATHK3 

OERRTKO 

ONWHWT 

DRVCONN 

ERRSTAT 

FMTCAP 



AB 00D5I 

AB 003AI 

LB X92XI 

AB 00491 

AB 030X1 

LB XE09I 

AB 00631 

LB X753I 

LB X5CAI 

LB XSECl 

AB 005EI 

AB 004AI 

AB 00721 

AB OOXOl 

LB X434| 

AB 00241 

AB 00081 

AB 002BI 



ADM2 

ADRMK4 

BADBAD 

BSERR 

C2BT0X 

CHKDRV 

CLAMP 

CLRIST 

CMD6 

CMDX 

CPBY02 

CSMFND 

DATMK4 

DIPINTR 

DOSEEK 

DRVERROR 

ERRHRT 

FMTTYPE 



AB OOAAl 


ADM3 


AB 00961 


ADRH 


AB 


00021 


AORL 


AB 003BI 


ADRMK5 


AB 003CI 


ADRSLEN 


AB 


00041 


AOK 


LB X92CI 


BADCOOD 


LB X92BI 


BITSLPX 


AB 


OODEi 


BITSLP2 


LB X89FI 


BSTBL 


LB X534i 


BUFRX2 


AB 


0XF4| 


BUFRX2SZ 


AB 03FEf 


C2BT02 


AB 03FF1 


CAO 


AB 


08001 


CAX 


LB X40EI 


CHKLRG 


LB XDFBl 


CHKOK 


LB 


lE34i 


CMKSML 


LB XD8EI 


CLAMPED 


AB 00201 


CLCSCDLY 


LB 


XD07| 


CLPENTY 


LB X73FI 


CLSSTBL 


LB XX62I 


CLSTSCMD 


AB 


00851 


CMD 


LB X5EDt 


CMDCLNUP 


LB X5E6I 


CHOJMP 


LB 


X5F6i 


CMDLENG 


AB 007DI 


CNFMVAL 


AB OOFFI 


CNTENA 


AB 


08X01 


CNTPTR 


AB OOSFi 


CPCKSUM 


AB 00601 


CPYRT 


LB 


XFF3I 


CRECKSUM 


AB OOSOl 


CSUM 


AB 00551 


CURCLA5S 


AB 


00231 


CURTRACK 


AB 00731 


DATMKS 


AB 00741 


DDM3 


AB 


OOAOi 


DECRCX 


AB 00201 


DIRECT 


AB 00591 


DISH 


AB 


08X9t 


DISKID 


LB X384I 


DOSTDONE 


LB X383I 


DOSTEP 


LB 


X363I 


DOSTRB 


AB OOOBl 


EICHTY 


AB OOOXt 


ENBLTEST 


LB 


X70EI 


ENBLTSTX 


AB OOXFi 


ESAD 


LB X7C7| 


FATALERR 


LB 


14DDI 


FDIRH 


AB 00251 


FORMAT 


LB XBAOl 


FORHERR 


LB 


1C20I 


FORMRTS 



14 Dec 13 



B IC32 


























rORMTOP 


LB iaB9| 


rORHTRAK 


LB IBADt 


FR3T01 


LB 11671 


FRMTDSK 


AB 00031 


FRMTTRK 


AB 00051 


CERRCLM 


AB 00071 


CERRCMD 


B 0001 


























CERRORV 


AB 00021 


CERRENA 


AB 00081 


GERRFHPR AB OOOAi 


CERRINTR AB 0009| 


CERRMSK 


AB 00061 


GERRSEC 


AB 00041 


CERRSID 


B 0003 


























GCRRTRK 


AB 00051 


CETDIP 


LB 14E91 


CETDIP2 


LB ISOFl 


CETDIP3 


LB 15151 


CETDIP4 


LB 15151 


CETDIP5 


LB 15191 


CLOBALS 


B 0040 


























COBYTE 


AB OOOOi 


HARDABOR LB 14071 


HARDINIT 


LB 13BFI 


HEADELAY 


AB 00161 


HIGH 


AB OOOll 


HIHCNT 


AB 00761 


HOLDINX 


B 002A 


























HOSTSCCK 


AB OOOCi 


II06 


AB 00301 


IMALIVE 


AB 00281 


IMSK 


AB 002CI 


INCRGl 


LB 1C9AI 


INDEXH 


AB 005BI 


INDEXL 


B 005A 


























INIT 


LB 17151 


INWARD 


AB OOOOl 


INXPTRH 


AB 00441 


INXPTRL 


AB 00431 


lOB 


AB OOOOl 


lOBSIZE 


AB 00071 


lOSPACE 


B 0800 


























1ST 


AB 002r| 


INHERROR 


AB OOOEl 


XNHHODE 


AB OOlFl 


JSTMTR 


LB 17ABI 


JUSTRIT 


LB 1C43I 


KOOO 


AB 00451 


KOFF 


B 0046 


























LISA 


PR 1 


LOCALS 


AB 00681 


LOOP 


LB 14821 


LOOPl 


LB 148CI 


L00P2 


LB 149AI 


LOW 


AB OOOOl 


L0M6 


B 003r 


























LOWCNT 


AB 00751 


LRCE 


AB 00051 


LSTRB 


AB 08061 


LSTOSED 


AB OOBFi 


LMCHONO 


AB 00831 


MASK 


AB OOOll 


MAXCLASS 


B 0004 


























MAXCHO 


AB 00091 


MAXDDLY 


AB 00171 


MAXRECAL AB OOlAl 


MAXRETRY 


AB 00191 


MAXSECNT 


AB OOOCI 


MAXSPEED 


AB 00381 


MAXTRACK 


B 004r 


























MINSECNT AB 0008| 


MINSPEED AB 00D4i 


HXNTRACK 


AB OOOOl 


MONDLY 


AB OOlCl 


MSPOTBL 


AB OOlOl 


MTENA 


AB 08081 


MTRFLC 


B 0057 


























MTRON 


AB 00211 


NIBL 


LB lOOOl 


NIBLRETR 


AB 00201 


NOSIDES 


AB OOOAj 


NOTAOK 


LB 160AI 


NULLCMD 


AB 00801 


OFF 


B 0000 


























OKTOCO 


AB 002EI 


ON 


AB 00011 


ONESEC 


AB 00C8I 


OUTHARD 


AB OOOll 


PAGEOl 


AB OlOOl 


PAGE02 


AB 02001 


PAGE03 


B 0300 


























PERRINT 


AB OOOCi 


PERRROM 


AB OOOBl 


PGl 


LB 1A16I 


PCIX 


LB 1A18I 


PG2 


LB 1A6AI 


PG2LEN 


AB OOFFi 


PC3 


B IBOO 


























PC3LEN 


AB OOFEl 


PC3X 


LB 1B021 


PRENIB 


LB 15771 


PRKCLRO 


LB 17CD1 


PROGERRl 


LB 17CA1 


PSTV 


LB 17911 


PMCNA 


B 0816 


























PWMREC 


AB 08201 


06H 


AB 080D1 


06L 


AB 080CI 


Q7M 


AB 080F1 


07L 


AB 080E1 


OKDLY 


AB OOlCl 


RACSUM 


B 004r 


























RAEND 


AB 004CI 


RAERRl 


LB 12CD1 


RAERR2 


LB 12D21 


RAERR3 


LB 12D71 


RAERR4 


LB 12E11 


RAERR5 


LB 12DCI 


RAERR6 


B 12E3 


























RAEXIT 


LB 12C8I 


RAEXITl 


LB 12C91 


RAMTEST 


LB 14E8I 


RANGEH 


AB OOSDi 


RANGEL 


AB OOSCl 


RASCTR 


AB 004DI 


RASLPl 


B 1299 


























RASLP2 


LB 12AEI 


RASTRT 


AB 004BI 


RATRK 


AB 004EI 


RCLSTEP 


AB 0004} 


RDIO 


LB 18911 


RD9 


LB 1B88I 


RDAOl 


B 125F 


























R0AD2 


LB 126FI 


RDAD3 


LB 12781 


RDA04 


LB 12871 


ROAOR 


LB 12491 


RDADRTMT AB 0008i 


RDASNl 


LB 126BI 


ROASYN 


B 1257 


























ROBTOl 


LB ISOBt 


RDBF02 


LB 180DI 


RDCSHOl 


LB 18541 


ROERR 


LB 18A6I 


R0ERR2 


LB 18A9i 


RDEXIT 


LB 189BI 


RDSl 


B 1308 


























R0S2 


LB 13051 


RDSYNTOP 


LB 18AEI 


RDHASTE 


LB ISBEl 


READ 


LB 18E2I 


READOl 


LB 18E4I 


READl 


LB 18E9I 


REA016 


B 1800 


























READ3 


LB 18FEI 


READ4 


LB 19051 


READBF 


LB 18DEI 


READOIP 


LB 131E1 


REAOINDX 


LB 13131 


READIT 


LB 130B1 


READMP 


B 1302 


























RECALBRT 


LB lD2Bi 


RECALCNT AB 00271 


RECALL 


LB 1D2BI 


RECALHTR 


LB 10241 


RESTART 


LB 14321 


RESTARTl 


LB 14521 


RESTART2 


B 1456 


























RrrRYCNT 


AB 00261 


RFLD 


LB 12851 


RID 


LB 13141 


ROHERR 


LB 14DBI 


ROMID 


LB 11411 


ROMIDNUH AB 00181 


ROMTEST 


B 14A4 


























RSI 


LB 18B8U 


RS2 


LB 18C31 


RS3 


LB 18CE1 


RS4 


LB 18D8I 


RSED 


LB 1DD6I 


RSEDCE 


LB 1DD2I 


RSOOT 


B lOCD 
























, 


RSTJMP 


LB IFFBl 


RSYNC 


LB 18B5I 


RSYNCl 


LB IBBOj 


RTYFLC 


AB 007BI 


RM400 


LB 16381 


RMCSNFLG AB 00681 


RWTS 


B 1604 


























RWTS4 


LB 16191 


RWTS40 


LB 16241 


RWTS5 


LB 164BI 


RWTS7 


LB 16541 


RWTSCNO 


AB 00811 


RMTSJMP 


LB 16631 


SAVAOR 


B 114B 


























SAVDAT 


LB llSOl 


SAVEH 


AB 007FI 


SAVEL 


AB 007E1 


SAVINOE> 


AB 00801 


SCDLY 


AB 00151 


SCTRCNT 


AB OlDOl 


SCTRSAV 


B 01D3 


























SOTND 


AB 00521 


SECFND 


AB 00531 


SeCPRTRK LB 11461 


SECTOR 


AB 00041 


SEEK 


LB 175E1 


SEEKl 


LB 17841 


SEEK2 


B 1797 


























SEEK ALT 


LB 17641 


SeCKCND 


LB 17601 




AB OOODt 


SELSIDE 


LB 12E6I 


SERRCLHP AB 0016| 


SERRFRMT AB 00151 


5ERRM1TK 


B OOIC 


























SERRN0A9 


AB OOlAl 


SERRPROT 


AB 00141 


SERRRO 


AB 00171 


SERRTMT 


AB OOlBl 


SERRXLM AB 00191 


SERRHR 


AB 00181 


SETORCT 


B 1352 


























PACE - 103 LISA 


FILE: 


SYNBOLTABLE DUMP 


















SETORCTX 


LB 13501 


SETHI GH 


LB 12FEI 


SETIMSK 


LB 174AI 


SETLOW 


LB 12FAI 


SETRMOOI 


: LB 139BI 


SETSEL 


LB 12EF1 


SETSPOY 


B 1392 


























srrsPEED 


LB 138F1 


SETTACH 


LB 13491 


SHARERA^ 


1 AB OOlOl 


SHAREROM LB 1139} 


SHARESZ 


AB OOODi 


SHTOFF 


LB 1B93I 


SIDE 


B 0003 


























SIDEOSEL 


AB 081A1 


SXDEISEL 


. AB 081BI 


SIDNUM6 


AB 01D2I 


SMAL 


AB OOOll 


SPDCHK 


LB 1E4F1 


SPDDONE 


LB 1E93I 


SPOERR 


B 1E91 


























SPEED 


AB 00061 


STACKST 


AB OOCFi 


STATUS 


AB 00201 


STEPERR 


AB OOOFi 


STPAMT 


AB 00581 


STPDLY 


AB OOlBi 


STSLP 


B 0048 


























SVl 


AB 006A1 


SV2 


AB 006Bi 


SV3 


AB 006CI 


SV4 


AB 00601 


SYNC20 


LB 153AI 


TBLJMP 


AB 00091 


TCKSHl 


B 0064 


























TCKSM2 


AB 00651 


TCKSM3 


AB 00661 


TEMPI 


AB 006Ei 


TEMP2 


AB 006F| 


TEMP3 


AB 00791 


TEMP4 


AB 007AI 


TE#rSEC 


B 0067 


























TESTCOB 


LB 11321 


TESTTBL 


LB 11281 


THINHIH 


LB lllEi 


TMINLOW 


LB 11141 


TIMIT 


LB IDAAi 


TLOW 


AB 00141 


TMON 


B 1341 


























TMOUTRCL AB 0064| 


TOOSHL 


LB 1C331 


TOTCNT 


AB 00781 


TRACK 


AB 00051 


TRKCLSS 


LB 11551 


TRKFLG 


AB 00561 


TRKFND 


B 0054 


























TRKNUMB 


AB OlOll 


TRMTOFF 


LB 132A1 


TRNMTRON LB 1331| 


TSHIH 


LB 1E21I 


TTCORIVE AB OOOll 


TTCFCFM 


AB 00201 


TTCFVPM 


B 0080 


























TTCMASK 


AB OOlOl 


TTCSECTR AB 0004} 


TTCSIDE 


AB 00021 


TTCTRACK AB 0008| 


TTCWPRT 


AB 00401 


TURNMTR 


LB 13361 


TURNRND 


B 0008 


























UNCLAMP 


LB 13A8i 


UPDINT 


LB 151C1 


UPDINT2 


LB 1526} 


UPDINT3 


LB 15301 


USWAIT 


LB 10911 


USWAITl 


LB 1D93I 


UU6 


B 007C 


























VALIDI 


LB 167D1 


VALI02 


LB 168C1 


VALID20 


LB 168Et 


VALX03 


LB 16961 


VALIDATE LB 1677| 


VALIDCF 


LB 16E3I 


VALIDDR 


B 1698 


























VALIDTV 


LB 16F4I 


VALXDMA 


LB 16D91 


VALIOSE 


LB 16C11 


VALIDSI 


LB 16AF| 


VALIDTR 


LB 16CFI 


VALIOWP 


LB 16EBI 


VALJMP 


B 16rE 


























VERIFY 


LB 1BE91 


VERTRACK LB 1BED| 


VERTRK 


LB ICADt 


VFRTRY 


LB ICCAi 


VFTOP 


LB 19821 


VFYCKSUM LB 1974| 


VFYERR 


B 1CD9 



























VTYTmCl Li 1CB7I VrYTMK2 LB iCBBl VLDNOTST LB 16921 VOLFND AB OOSll VRTYOSK 


AB 00041 


VRFYTRK 


AB 00061 


VTOO 


B lBr2 










MADR16 LB 1204| WAIT LB lOAOt HAITI LB 1DAX| HAI7ALT LB IDBFi WAITROH 


LB 17D5I 


HAITROHl 


LB 17D8I 


MAITR0H2 


B 17DE 










MHXH AB OOlli NIDCHXH LB ilOA| WIDCLOM LB llOOt HLOH AB OOOOi MRADROl 


LB 12061 


HRAX 


LB lAEOl 


•f»YTE 


B IAE8 










MRBYTEX LB lACSi MRITE LB 19C6| MRITE16 LB lAOOl NRITC3 LB IBDli MRITCBF 


LB 19CBI 


MRITRK 


LB lC48i 


MRNIBL 


B lACC 










MRSYNTRK LB 1200| MRTBFCMO AB 00081 MRTCMD AB 000 1| MRTKDONE LB 1CA2| MSTTH 


LB 12481 


HTHIH 


AB 00421 


MTLOW 


B 0040 










MTHXD AB 00411 NTZERO LB 1DCE| XFERl LB 14651 ZERO AB OOOOl 










PACE - 104 LISA FILE: Sony DRIVER FOR LISA 










Current wlnlMum space is 32767 words. 










1246* OOIA 










1232« E81A 










1227* E91A 










121F» E91A 










1S75* ECIA 










1570* ECIA 










1566* ECIA 










1566* ECIA 










123C* ECIA 










1237* ECIA 










1218* ECIA 










123F* 931B 










1669* AC16 










166D* ACIB 










1666* E81B 










166F* EC IB 










17A4* 071D 










1504* 2410 










1922* 2B1D 










1675* 8D1D 










1374* 8F10 










17B4* AOID 










1501* AOID 










144C* AOID 










13CB* AOID 










13B4* AOID 










1347* AOID 










17BB* 4F1E 










Asseiibly co«plete: 3671 lines 










Errors flagged on this Assembly 










ESY.TEXT*iDRIVE2/SYSP3&2/SYSP:SY.TEXT-'.»R-"»ic/ -Qf. ,R3". ictJ"«h0ic6 A2/SYSP: SY. TEXT--.»R*'"b«/ 

• 


-Ot-.,R3- 


.Kt 





